Bilder in Excel einfügen
12.11.2014 14:17:40
Thorsten
habe nachfolgendes Macro unter Excel 2013 im Enisatz
Sub Einfuegen()
Range("A15").Select
ActiveSheet.Paste
'Aktivierte Grafik formatieren :
If TypeName(Selection) = "Picture" Then 'nur wenn Grafik markiert ist :
With Selection.ShapeRange
.LockAspectRatio = False
'Breite und Höhe der Grafik bitte in Klammer hier anpassen :
.Height = Application.CentimetersToPoints(10.05)
.Width = Application.CentimetersToPoints(14.63)
End With
End If
End Sub
Nun soll diese Macro auch unter Excel 2010 funktionieren.
Das Problem ist das unter 2013 das Bild nach dem einfügen markiert bleibt und das Macro vollständig abgearbeitet wird. Unter 2010 bekomme ich das Bild nach dem einfügen nicht aktiviert und somit wird die Größe des Bildes nicht angepasst.
Das Bild kommt immer aus dem Zwischenspeicher.
Danke für die Unterstützung
Anzeige