Bild aus Tabelle in ActiveX Bildsteuerel. einfügen
01.03.2019 09:03:31
Sebastian
vermutlich ist es ein Kinderspiel für Euch, ich habe es aber nicht hinbekommen.
Folgendes Szenario: Ich habe mehrere ActiveX Bildsteuerelemente, in die über ein Auswahlmenü vom Benutzer Bilder eingefügt werden können.
Zusätzlich gibt es einen Löschen-Button. Dieser fügt einen Platzhalterbild in das Bildsteuerelement. Bislang war das Platzhalterbild in einem separaten Ornder gespeichert. Da es den "Benutzern" aber schwer fällt, diesen Ornder immer mitzukopieren, soll das Platzhalterbild in einem separaten versteckten Tabellenblatt vorhanden sein und bei Bedarf über den Button eingefügt werden.
Wie kann man also auf eine Grafik, benannt z.B. als grafik1 verweisen?
Hier mein bisheriger Aufbau:
Option Explicit
Public Sub Löschen()
Dim varBild As Variant
Dim objImg As Object
varBild = ThisWorkbook.Path & "\Bilder\Quickviewbilder\Kein Bild vorhanden.jpg"
If varBild = False Then Exit Sub
With Worksheets(ActiveSheet.Index).Portrait
.PictureSizeMode = fmPictureSizeModeZoom
.Object.Picture = LoadPicture(varBild)
End With
End Sub