Guten Morgen,
ich versuche mich gerade an einer Anwendung für meine Firma, wo ich Photoshop CS4 in VB2010Express mit eingebunden habe. Innerhalb meiner Anwendung will ich als erstes Gewisse Informationen abfragen um zu prüfen, passt das jeweilige Bild von den Abmessungen her. Ich habe allerdings gemerkt, dass bspw. obj_PsFile.Height in cm gerechnet wird. Jetzt muss ich Pixel erst in cm umrechnen und brauche daher zu erst die DPI vom jeweiligen Bild. Wie bekomme ich das hin?
Die einfachste Aufgabe ist wenn die Abmessungen passen, die Herausforderung ist allerdings wenn das mal nicht der Fall ist. Hier soll dann über Photoshop die Arbeitsfläche entsprechend vergrößert werden.
Kann mir hier einer weiterhelfen und kennt sich in der Kombination VB.net und Photoshop CS4 aus?
Tante Google kann mir da nicht weiterhelfen und ich finde keine Dokumentation so richtig, bzw. vielleicht hab ichs überlesen.
ich versuche mich gerade an einer Anwendung für meine Firma, wo ich Photoshop CS4 in VB2010Express mit eingebunden habe. Innerhalb meiner Anwendung will ich als erstes Gewisse Informationen abfragen um zu prüfen, passt das jeweilige Bild von den Abmessungen her. Ich habe allerdings gemerkt, dass bspw. obj_PsFile.Height in cm gerechnet wird. Jetzt muss ich Pixel erst in cm umrechnen und brauche daher zu erst die DPI vom jeweiligen Bild. Wie bekomme ich das hin?
Die einfachste Aufgabe ist wenn die Abmessungen passen, die Herausforderung ist allerdings wenn das mal nicht der Fall ist. Hier soll dann über Photoshop die Arbeitsfläche entsprechend vergrößert werden.
Kann mir hier einer weiterhelfen und kennt sich in der Kombination VB.net und Photoshop CS4 aus?
Tante Google kann mir da nicht weiterhelfen und ich finde keine Dokumentation so richtig, bzw. vielleicht hab ichs überlesen.
VB.NET-Quellcode
- Public Sub sub_Fotobearbeitung(ByVal pstr_Dateiname As String)
- Dim obj_PsApp As New Photoshop.Application
- Dim obj_PsFile As Photoshop.Document
- Dim dbl_Hoeheincm As Double
- Dim dbl_Breiteincm As Double
- obj_PsApp.Visible = False
- obj_PsApp.Open(pstr_Dateiname)
- obj_PsApp.DisplayDialogs = Photoshop.PsDialogModes.psDisplayErrorDialogs
- obj_PsFile = obj_PsApp.ActiveDocument
- dbl_Breiteincm = 600 ' Umrechnung in CM -- (Pixel / Auflösung * 2,54) -- Bsp. 600 Pixel bei 72 Dpi = 21,166666667 cm ~ 21,17 cm
- dbl_Hoeheincm = 600 ' Umrechnung in CM -- (Pixel / Auflösung * 2,54)
- If obj_PsFile.Height = dbl_Hoeheincm And obj_PsFile.Width = dbl_Breiteincm Then
- ' Beide Maße passen, also gleich kopieren
- 'Lustiger Code....
- Else
- ' Die Maße passen nicht, also bearbeiten und dann kopieren
- 'Lustiger Code....
- End If
- obj_PsApp.Quit()
- End Sub
