VBA - über explorer JPG-Bild einfügen
Erik
Bei meinem letzten Beitrag wurde mir super geholfen und nun bin ich so weit, das ich über einen Button in den Explorer gelange und dort ein Bild öffnen kann. Leider geht dies nicht bei JGP-Bildern. Kann mir da jemand helfen?
Das is mein Standpunkt (Quelltext von NoNet):
Sub Bild_Einfuegen()
Dim strBild, objBild As Object, objButton As Object
strBild = Application.GetOpenFilename("PNG-Grafiken (*.png), *.png", , "Bildauswahl")
If TypeName(strBild) = "String" Then
Set objButton = ActiveSheet.Buttons("Button 1") 'Name des Buttons bitte anpassen !
Set objBild = ActiveSheet.Pictures.Insert(strBild)
With objBild
'linke Position relativ zum Button1 :
.Left = objButton.Left + objButton.Width / 2 - .Width / 2
'obere Position relativ zum Button1 :
.Top = objButton.Top + objButton.Height / 2 - .Height / 2
End With
End If
End Sub
Anzeige