Bilder einfügen!
18.10.2002 14:27:33
proximus2303
Ich hab folgendes Problem: Über einen Button soll in einer Tabelle der Standard-Öffnen Dialog erscheinen und dort soll ein Bild ausgewählt werden können. Dieses Bild soll dann in ein bestimmtes Feld eingefügt werden und die Größe des Bildes soll sich dem Feld anpassen.Bisher bin ich so weit gekommen
Public Sub openimage_Click()
Dim varFile As Variant
varFile = Application.GetOpenFilename()
Wie kann ich jetzt das ausgewählte Bild einfügen?Wie muß ich die Zellen formatieren, in die das Bild reingeladen werden soll?
Wieso funktioniert
ActiveSheet.Range("a1").Pictures.Insert(varfile) nicht? Es kommt die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht"
Kann mir jemand weiterhelfen?
Danke schon mal
proximus2303
Anzeige