Shapes.Cut

Forumthread: Shapes.Cut

Shapes.Cut

14.02.2025 14:38:19

Wennerfaellt

Hallo,

kann ich diesen Code

Sheets("Plan").Shapes.SelectAll



    Selection.Cut

ohne Selection in einen Satz zusammenbringen?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Shapes.Cut

15.02.2025 11:03:31

Beverly
Probiere es...

16.02.2025 14:21:59

Case
AW: Shapes.Cut

16.02.2025 10:14:26

Ulf

AW: Shapes.Cut

15.02.2025 11:03:31

Beverly

Hi,

soweit mir bekannt ist, geht das bei Shapes nicht, nur bei eingebetteten Diagrammobjekten:

ActiveSheet.ChartObjects.Delete

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Probiere es...

16.02.2025 14:21:59

Case

Moin, :-)

... so: ;-)

Sheets("Plan").DrawingObjects.Cut

Servus
Case

AW: Shapes.Cut

16.02.2025 10:14:26

Ulf

Hi,
Umweg:
Klasse clsAllShapes

Option Explicit



Private myShapes As Shapes



Public Sub Delete(ByRef ws As Worksheet)

    Dim sh As Shape

    Set myShapes = ws.Shapes

    For Each sh In myShapes

        sh.Delete

    Next

End Sub



Private Sub Class_Terminate()

    Set myShapes = Nothing

End Sub

Aufruf

Public Sub test()

    Dim cShapes As New clsAllShapes

    Call cShapes.Delete(Sheets("Plan"))

End Sub

hth
Ulf

Forumthread: Shapes.Cut

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread