Was geht ab? – Schwarzer Edding schon mal nicht!

Ich glaube, da muss Microsoft nochmal ran!

Ich zeichne ein Makro auf: ein Bild wird eingefügt:

ActiveSheet.Pictures.Insert("F:\Eigene Bilder\Erdbeertörtchen.JPG").Select

Ich möchte den Code etwas verändern:

Und stutze, weil das Objekt „Picture“ nicht in der Liste der Objektvariablen angeboten wird. Ich versuche es trotzdem:

Das Makro

Sub BildEinfuegen()
     Dim xlBlatt As Worksheet
     Dim xlBild As Picture
     
     Set xlBlatt = ActiveSheet
     Set xlBild = xlBlatt.Pictures.Insert("F:\Eigene Bilder\Erdbeertörtchen.JPG")

End Sub

läuft hervorragend. Okay – und was heißt: Bilder verschieben und verkleinern? Der Makrorekorder liefert:

ActiveSheet.Shapes.Range(Array("Picture 8")).Select
Selection.ShapeRange.ScaleWidth 0.3169191919, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.3169191919, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 252
Selection.ShapeRange.IncrementTop 54.75

Merkwürdig – ich hänge den veränderten Code an mein Makro:

Dim xlBlatt As Worksheet
Dim xlBild As Picture

Set xlBlatt = ActiveSheet
Set xlBild = xlBlatt.Pictures.Insert("F:\Eigene Bilder\Erdbeertörtchen.JPG")

With xlBild
    .Width = .Width * 0.3169191919
    .Height = .Height * 0.3169191919
    .Left = 252
    .Top = 54.75
    .Visible = True
End With

HIER wird das Picture-Objekt erkannt. Und: läuft doch!

3 Kommentare

  • Peter

    Wie wäre es mit ausgeblendete Elemente einblenden im Objektkatalog 🙂
    Und Schwupps macht die Intellisense auch ein Picture 🙂
    Dim x As Picture

    • Medardus

      GUT! Vielen Dank für den Hinweis.
      Umgekehrt: Warum blenden die so etwas aus?
      Danke für den wertvollen Hinweis – DAS ist mir entgangen!

      • Peter

        Dies sind in der Regel deprecated Eigenschaften, Methoden oder Ereignisse.
        Viele davon sind aus Kompatibilitätsgründen noch vorhanden und manche will MS wohl nicht allen zeigen 🙂
        Auch Makro4 Geschichten könnten sich dahinter verbergen.

        Vielleicht passt es ja ins nächste VBA Buch 🙂

        Leider eine nicht mehr so doll (und das ist noch untertrieben) gepflegte Site : http://www.online-excel.de

        Anmerkung: Die Sprüche sind toll – wo kommen die her. Die haben mich dazu veranlasst ein wenig zu stöbern.

Schreibe einen Kommentar zu Medardus Antworten abbrechen

Deine E-Mail-Adresse wird nicht veröffentlicht.