Eingefügtes Bild per VBA löschen
26.03.2017 00:45:39
Dennis
ich bin über einen alten Post auf euch aufmerksam geworden.
Folgendes:
Ich habe zwei Bildauswahlen eingebaut:
Option Explicit
Public Sub Bild1()
Dim varBild As Variant
Dim objImg As Object
varBild = Application.GetOpenFilename(Title:="Bildauswahl!")
If varBild = False Then Exit Sub
With Tabelle1.Image1
.PictureSizeMode = fmPictureSizeModeStretch
.Object.Picture = LoadPicture(varBild)
End With
End Sub
Public Sub Bild2()
Dim varBild As Variant
Dim objImg As Object
varBild = Application.GetOpenFilename(Title:="Bildauswahl!")
If varBild = False Then Exit Sub
With Tabelle1.Image2
.PictureSizeMode = fmPictureSizeModeStretch
.Object.Picture = LoadPicture(varBild)
End With
End Sub
Habt ihr eine Lösung für mich, weil ich stecke fest...
Danke & Gruß
Dennis
Anzeige