איי! אדובי יודע להקשיב לי?

[ש.ב.ח.]

שלום לאנשי הפיתוח שלנו באקסס

שאלה לי, האם ניתן לתקשר בין אקסס לתוכנות אדובי לפתוח קובץ במידות ופרמטרים מסויימים וכמו כן לשמור בשם בנתיב מסויים בדיסק?
_________________________________________________________
קוד ליצירת קובץ וורד מתוך VBA לקוח מתוך אשכול הקודים"

נכתב ע"י רחמים.
קוד:
Option Explicit

Sub יצירת_קובץ_וורד()

Dim WDApp As Object
' יוצר מופע של וורד
Set WDApp = CreateObject("WORD.application")
Dim Doc As Object
' יוצר מופע של מסמך
Set Doc = WDApp.Documents.Add
WDApp.Visible = True 'גורם לוורד להראות

' כאן אפשר להשתמש באובייקט DOC
' ולהוסיף טקסט למסמך וכן לשמור אותו וכדומה
Doc.Paragraphs(1).Range.InsertAfter "שלום עולם"
Doc.Close -1
' ...

WDApp.Quit 'בסוף השימוש חייבים לסגור
Set WDApp = Nothing

End Sub

מעניין לדעת האם ניתן כמו כן ליצור קובץ של אדובי (פוטושופ/אילוסטרייטור/אינדיזיין)
ניסיתי(בפוטושופ), הוא אכן פותח מסמך חדש (הוא לוקח את הגודל הראשון שקיים ב'new document')
לאחר מכן הוא נתקע בDoc.Close -1 (ברור שאת השורה קודם לכן הורדתי)

הצפיה שלי שהוא יפתח לי קובץ לפי הגדרות מסמך רשומות בקוד וישמור אותו בשם הכתוב בקוד בנתיב הכתוב בקוד (save as) ולאחר מכן יתן לי לעבוד על הקובץ (לא יסגור את התוכנה)

יש סיכוי או שהגזמתי.?

 

[FullTime]

כאן יש לך משהו על הקטנת תמונה בפוטושופ מתוך VBA
תנסה לשחק בכיוון אולי.
https://www.myengineeringworld.net/2017/11/playing-with-photoshop-vba.html

וכאן יש עוד משהו
https://forums.adobe.com/thread/2194605

 

[ש.ב.ח.]

וכאן יש עוד משהו
https://forums.adobe.com/thread/2194605

תודה לך!
מדהים זה עובד יפה מאוד רק צריך ללמוד את האפשרויות שם.

רק לי כמה בעיות, אשמח אם משהו יוכל לפתור את הבעיה, נתחיל עם הראשונה בנתיים:

1. אכן הצלחתי ליצור מסמך חדש בתוכנה PhotoShop ,
הוא פותח את התוכנה ומייצר את הקובץ, בלבזה באם לחצתי עם העכבר על התוכנה בכל מקום במסך התוכנית עוצרת ומביאה שגיאה (איך גורמים לתוכנית לא להתייחסת להקשות במקלדת והעכבר בתוכנה הנפתחת עד סיום התוכנית)?

 

[ש.ב.ח.]

אז יש לי קוד לפתיחת עבודה בפוטושופ הכל עם פרמטרים וכו'
אבל מה
את השמירה אני לא מצליח לעשות
פוטושופ טוענת שיש מישהו אחר שמשתמש בקובץ (אהה זה כנראה הקוד) מה עושים?

 

[ש.ב.ח.]

הסתדרתי, תודה!

 

[מתמחה במחשבים]

יהיה חכם לשתף אותנו, כדי שנוכל לדעת להבא

 

[ש.ב.ח.]

יהיה חכם לשתף אותנו, כדי שנוכל לדעת להבא

ראשית יש לאשר את ההפנייה לספרייה של פוטושופ

לאחר מכן כתבתי את הקוד הבא (שה רק נסיון עדיין לא ביצעתי איתו דבר ולכן לא בדקתי את טהרתו ונקיותו ורק רציתי לגעת שהוא אכן יודע לבצע את הפעולה):

Public Function MyPhoto() As Object
Dim myApp As New Photoshop.Application
Dim mynew As Photoshop.Application
Dim mydoc As Photoshop.Document
Dim mysave As String
mysave = "C:\Users\משתמש\Desktop\נסיונות"
Set myApp = New Photoshop.Application
myApp.Preferences.RulerUnits = psMM
Set myApp = CreateObject("Photoshop.Application")
Set mydoc = myApp.Documents.Add(50, 50, 300, "נסיון", psRGB, psWhite)
mydoc.saveas mysave

End Function

לגבי הבעיה של שמירת בקובץ: זה הייתה טעות שלי כי ניסיתי לשמור אותו ישר על C