Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bilder in Excel einfügen

Bilder in Excel einfügen
12.11.2014 14:17:40
Thorsten
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder in Excel einfügen
12.11.2014 15:25:57
Beverly
Hi Thorsten,
benutze anstelle Selection dieses:
With ActiveSheet.Pictues(ActiveSheet.Pictures.Count)


AW: Bilder in Excel einfügen
12.11.2014 15:36:02
Thorsten
Hallo Karin,
vielen Dank für Deine Antwort.
Wenn ich die Zeile
With Selection.ShapeRange
mit
With ActiveSheet.Pictues(ActiveSheet.Pictures.Count)
ersetze passt das Script leider auch nicht die Groesse an.
Thorsten

AW: Bilder in Excel einfügen
12.11.2014 17:48:02
Beverly
Hi Thorsten,
also bei mir funktioniert es mit diesem Code problemlos:
    Range("A15").Select
ActiveSheet.Paste
With ActiveSheet.Pictures(ActiveSheet.Pictures.Count).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


Anzeige
AW: Bilder in Excel einfügen
13.11.2014 10:36:13
Thorsten
Hallo Karin,
habe wohl gestern irgendwo etwas falsch gemacht.
Heute war der Test erfolgreich.
Es klappt alles.
Vielen Dank für die Unterstützung und die Geduld
Thorsten

339 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige