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
Option Explicit
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
Ich brauche dazu jetzt EINEN Button "leeren", der die beiden eingefügten Bilder löscht, aber nicht die Platzhalter für neue Bilder an selber Position Image1 & Image2.Habt ihr eine Lösung für mich, weil ich stecke fest...
Danke & Gruß
Dennis