Microsoft Excel

Herbers Excel/VBA-Archiv

Bilder in Excel einfügen

Betrifft: Bilder in Excel einfügen von: Thorsten
Geschrieben am: 12.11.2014 14:17:40

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

  

Betrifft: AW: Bilder in Excel einfügen von: Beverly
Geschrieben am: 12.11.2014 15:25:57

Hi Thorsten,

benutze anstelle Selection dieses:

With ActiveSheet.Pictues(ActiveSheet.Pictures.Count)

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Bilder in Excel einfügen von: Thorsten
Geschrieben am: 12.11.2014 15:36:02

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


  

Betrifft: AW: Bilder in Excel einfügen von: Beverly
Geschrieben am: 12.11.2014 17:48:02

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

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Bilder in Excel einfügen von: Thorsten
Geschrieben am: 13.11.2014 10:36:13

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


 

Beiträge aus den Excel-Beispielen zum Thema "Bilder in Excel einfügen"