Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1680to1684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

xlBitmap`s entfernen

xlBitmap`s entfernen
12.03.2019 15: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
Anzeige
AW: xlBitmap`s entfernen
12.03.2019 16: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
Anzeige
AW: xlBitmap`s entfernen
12.03.2019 17:09:34
Fred
Hallo Nepumuk,
passt !
Dir noch einen schönen Dienstagabend.
Gruß
Fred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige