VBA Bild implementieren
09.01.2021 11:02:55
Vincent
ich bin sehr unerfahren mit Excel VBA. Ich Versuche eine Arbeitsmappe zu erstellen mit der Funktion bei dem betätigen eines Buttons ein Bild in eine Zelle einzufügen (Hoch- und Querformatbilder, welche sich automatisch an die größe der Zelle anpassen sollen).
Hierbei kommt es jedoch ab und zu vor, dass das eingefügte Bild nicht in der ausgewählten Zelle ist.
Hier einmal mein Versuch:
Private Sub CommandButton1_Click()
Dim fNameAndPath As Variant
Dim img As Picture
Dim intLp As Integer
Dim arrLeftandTop As Variant
Dim arrWidth As Variant
Dim arrHeight As Variant
fNameAndPath = Application.GetOpenFilename(Title:="Bild einfügen")
If fNameAndPath = False Then Exit Sub
arrLeftandTop = Array("A4") 'Left and top range values
arrWidth = Array("A4") 'Width range values
arrHeight = Array("A4") 'Height range values
Set img = ActiveSheet.Pictures.Insert(fNameAndPath) 'Set image for insert
With img
.Left = ActiveSheet.Range(arrLeftandTop(intLp)).Left
.Top = ActiveSheet.Range(arrLeftandTop(intLp)).Top
.Width = ActiveSheet.Range(arrWidth(intLp)).Width
.Height = ActiveSheet.Range(arrHeight(intLp)).Height
.Placement = 1
.PrintObject = True
End With
End Sub
Kann mir jemand helfen oder sagen wo der Fehler ist?
Vielen Dank im Voraus!!!