Pfadangabe neben aktiver Zelle in VBA
28.05.2013 11:45:37
floh
habe folgendes Problem,
in einer beliebigen Stelle meines Arbeitsblattes steht in einer Zelle die Pfadangabe eines Bildes.
Diese Zelle makiere ich mit meiner Maus.
Nun soll rechts neben der Zelle das Bild automatisch eingefügt werden, wenn ich das entsprechende Makro aktiviere.
Das ist mein Lösungsansatz:
1. ActiveCell.Offset(0, 1).Select
2. ActiveSheet.Pictures.Insert(ActiveCell.Offset(0, -1) & "jpg").Select
3. Selection.ShapeRange.ScaleHeight 0.15, msoFalse, msoScaleFromTopLeft
Schritt 2 funktioniert aber nicht
Was mache ich da falsch ?
Vielen Dank für eure Hilfe
MfG floh