Grafiken nach Hoch oder Breitformat wählen

Moderator: ModerationP

Grafiken nach Hoch oder Breitformat wählen

Beitragvon Patrick2 » 17. Mai 2018, 19:08

Hallo werte Helfer,
in einer Datei liegen Grafiken in Hoch und Querformat. Diesen Code hab ich:

Public Sub Test01()
Dim objPicture As IPictureDisp
Set objPicture = LoadPicture("D:\Grafiken\test2.jpg")
If CStr(objPicture.Width) < CStr(objPicture.Height) Then
MsgBox "HOCHFORMAT" weiter Makro 1
End If
If CStr(objPicture.Width) > CStr(objPicture.Height) Then
MsgBox "QUERFORMAT" weiter Makro 2
End If
End Sub

Leider nur für die festgelegte Datei.
Set objPicture = LoadPicture("D:\Grafiken\test2.jpg") >>> Folgende Änderung:
Ordneransicht "D:\Grafiken\" öffnen, Grafik wählen und dann weiter im Code
Danke für die Mühe im Vorfeld

Gruß Patrick2
Patrick2
 

Re: Grafiken nach Hoch oder Breitformat wählen

Beitragvon Flotter Feger Gast » 17. Mai 2018, 19:47

Hallöchen,

schau dir mal "Application.GetOpenFilename" an.

VG Sabina
Flotter Feger Gast
 

Re: Grafiken nach Hoch oder Breitformat wählen

Beitragvon Patrick2 » 17. Mai 2018, 21:08

Danke Sabina, hab's jetzt in die Reihe gebracht
Gruß Patrick
Patrick2
 


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: ec86 und 20 Gäste