Bild einfügen
08.01.2008 07:40:10
Holger
ich versuche mit folgendem Code ein bild in die Tabelle "Druck" einzufügen.
Private Sub cmdSave_Click()
Dim wundbild
Dim wsTabelle As Object
Set wsTabelle = ThisWorkbook.Sheets("Druck")
wsTabelle.Pictures.Insert(varBild).Select
With Selection
.Name = Me.TextBox11
.Left = 450 'Leftposition anpassen
'.Top = 20 'Topposition anpassen
'.Width = 130
'.Height = 100
End With
End Sub
Das einfügen funtzt prima, bei der ausrichtung und der anpassung der größe bekomme ich aber eine fehler meldung
Die Left-Eigenschaft des Range-Objeltes kann nicht festgelegt werden
Hat jemand eine Idee warum das nicht funtzt?
Danke
Holger
Anzeige