xlBitmap`s entfernen

Forumthread: xlBitmap`s entfernen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: xlBitmap`s entfernen

12.03.2019 16:31:20

Fred

Guten Tag,
ich habe mal eine Frage zu "Bildbereiche" entfernen.
Auf meiner Seite "Center" lasse ich öfters Bildbereiche anzeigen.
Dies geschieht z.B. mit dem Code:


Worksheets("Bilder").Range("O4:AB10").CopyPicture xlScreen, xlBitmap
Worksheets("Center").Paste _
Destination:=Worksheets("Center").Range("A22")

Meine Frage;
Wie lautet das VBA, wenn ich alle "Bildbereiche" - die im Blatt "Center" angezeigt werden, gemeinsam entfernen möchte?
Gruß
Fred Neumann

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: xlBitmap`s entfernen

12.03.2019 17:03:06

Nepumuk
AW: xlBitmap`s entfernen

12.03.2019 18:09:34

Fred

AW: xlBitmap`s entfernen

12.03.2019 17:03:06

Nepumuk

Hallo Fred,
teste mal:

Public Sub Beispiel()
    Dim objShape As Shape
    For Each objShape In Worksheets("Tabelle1").Shapes
        If objShape.Type = msoPicture Then Call objShape.Delete
    Next
End Sub

Gruß
Nepumuk

AW: xlBitmap`s entfernen

12.03.2019 18:09:34

Fred

Hallo Nepumuk,
passt !
Dir noch einen schönen Dienstagabend.
Gruß
Fred