ich möchte über einen command-button bilder in die tabelle einfügen. dies soll beliebig oft funktionieren. die größe der bilder ist jedoch unterschiedlich. also müsste man diese auch noch anpassen. kann mir da jemand helfen? vielen dank im voraus.
Private Sub cmdb3_Click()
Call bild_einfuegen
End Sub
Sub bild_einfuegen()
With ActiveSheet
.Pictures(1).Delete
.Pictures.Insert("C:\Documents and Settings\DEB10004\Desktop\" & .Range("A1")).ShapeRange.Height = 100
End With
End Sub
.Pictures.Insert("C:\Documents and Settings\DEB10004\Desktop\" & .Range("A1") & ".jpg").ShapeRange.Height = 100
Bis später,
Karin
Private Sub cmdb3_Click()
Call bild_einfuegen
End Sub
Sub bild_einfuegen()
With ActiveSheet
.Pictures(1).Delete
.Pictures.Insert("C:\Documents and Settings\DEB10004\Desktop\" & .Range("A1")).ShapeRange.Height = 100
End With
End Sub