Grafik per VBA aus Rahmen entfernen

Forumthread: Grafik per VBA aus Rahmen entfernen
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Grafik per VBA aus Rahmen entfernen

25.03.2025 13:52:23

mikelsun

Hallo zusammen,

ich habe folgende Datei im Forum gefunden:

https://www.herber.de/bbs/user/81265.xlsm

und suche jetzt eine Möglichkeit per VBA die eingefügten Bilder wieder zu entfernen damit ich wieder ein Leeres Dokument habe.

Danke euch schon mal.

Gruß

mikelsun

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Grafik per VBA aus Rahmen entfernen

25.03.2025 14:15:35

Crazy Tom
Falls - und nur falls...

25.03.2025 14:42:56

Case
Das geht dann...

25.03.2025 14:25:37

Case
Falsch...

25.03.2025 14:27:07

Case

AW: Grafik per VBA aus Rahmen entfernen

25.03.2025 14:15:35

Crazy Tom

moin,

klick doch einfach in das Image und im aufklappendem Dialog auf abbrechen
und schon ist das Bild wech

mfg Tom

Falls - und nur falls...

25.03.2025 14:42:56

Case

Moin, :-)

... da noch andere Shapes sind, dann besser so: ;-)

Option Explicit

Public Sub Main()

    Dim shpBild As Shape

    For Each shpBild In ThisWorkbook.Worksheets("Tabelle1").Shapes

        If shpBild.AutoShapeType = msoShapeRectangle Then

            shpBild.Fill.Solid

            shpBild.TextFrame.Characters.Text = "Hier Klicken um Grafik einzufügen"

        End If

    Next shpBild

End Sub

Servus
Case

Das geht dann...

25.03.2025 14:25:37

Case

Moin, :-)

... z. B. so: ;-)

Option Explicit

Public Sub Main()

    Dim shpBild As Shape

    For Each shpBild In ThisWorkbook.Worksheets("Tabelle1").Shapes

        shpBild.Fill.Solid

        shpBild.TextFrame.Characters.Text = "Hier Klicken um Grafik einzufügen"

    Next shpBild

End Sub

Den Tabellenblattnamen bei Bedarf anpassen.

Servus
Case

Falsch...

25.03.2025 14:27:07

Case

Moin Tom, :-)

... im Baum eingeordnet. Sorry. ;-)

Servus
Case

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!