Office: Image Control ein Bild zuweisen

Hallo Gemeinde,

ich habe ein Problem und zwar soll er den Namen aus TB1 Celle A1 nehmen und dort das bild halt einfügen aber irgendwie bekomme ich das nicht so recht hin wo leigt mein fehler ?Also Meckern tut er bei

Set Tabelle4.Name.Picture = LoadPicture((vntBild))

hier der Code der komplette Code

Public Sub Bild_laden()

Dim Name As Variant
Dim vntBild As Variant

Name = Sheets("Tabelle1").Range("A1").Value
vntBild = Application.GetOpenFilename(Title:="Select Image To Open")

If VarType(vntBild) = vbString Then _
Set Tabelle4.Name.Picture = LoadPicture((vntBild))

End Sub



Danke für eure hilfe

:)

 

Hallo Carlos,

versuche es einmal mit einem anderen Variablennamen. Wahrscheinlich gibt es Komplikationen weil Name ein VB Schlüsselwort ist.

 

Hallo Carlos,

zu der Fehlerbeschreibung bitte die Art des Fehlers angeben.

Ergänzend zu Chens Anmerkung:
Code:

Tabelle4.Name ist der Name des Arbeitsblattes (Objektes) Tabelle4. Name ist ein String-Wert - dieser wird niemals "gesettet".
Die Eigenschaft Name eines Objektes vom Typ Worksheet hat keine "Untereigenschaft" Picture.

Stattdessen musst Du das Image-Control, in das das Bild eingefügt werden soll, angeben - das fehlt bei Deiner Zeile vollkommen.

Je nachdem, was für eine Art Steuerlement zum Anzeigen des Bildes Du verwendest, kann der Code anders aussehen:
Code:

Grüße
EarlFred

 

Danke EarlFred hatt wunderbar geklappt :-)


ncoh eine frage habe ich wie müßte der Code Aussehen wenn ich das ganze in der Userform verknüpfen will also ich habe ein Auswahl list (dropdown)


Set Image1.Picture = Tabelle4.ComboBox1.Picture so eht das ja leider nicht.

danke für eure hilfe

 

danek habe es schon