Bild mittels Makro automatisch kopieren
07.03.2019 12:03:58
Allerleirauh
ich beschäftige mich erst seit dieser Woche mit Makros - d.h. ich habe keine Ahnung.
Den ersten Teil des Projektes habe ich schon ganz gut hinbekommen (dank eines älteren Beitrages in diesem Forum...). Über einen Button ist es nun möglich auf ein Verzeichnis zuzugreifen um ein Bild in ein Steuerelement zu laden.
Folgendes habe ich bereits hinbekommen:
Public Sub ImageX()
Dim varBild As Variant
Dim objImg As Object
varBild = Application.GetOpenFilename(Title:="Bildauswahl!")
If varBild = False Then Exit Sub
With Info_Ergebnisse_Fazit.ImageX
.Object.Picture = LoadPicture(varBild)
End With
End Sub
Ich hoffe auf eure Hilfe, denn all meine Versuche sind bisher gescheitert...
Anzeige