Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ActiveSheet.Shapes("Freeform 38").Select

Forumthread: ActiveSheet.Shapes("Freeform 38").Select

ActiveSheet.Shapes("Freeform 38").Select
24.11.2005 16:51:18
Charles
Macro 1 erstellt eine Zickzacklinie nach berechneten Werten (ergibt eine Art Diagramm). Macro 2 soll die Linie wieder löschen. Das Problem liegt hier:
ActiveSheet.Shapes("Freeform 38").Select
Excel numeriert die "Freeforms" fortlaufend durch von 1 bis x. Macro 2 kann aber nicht wissen, welche Nummer gerade ansteht. Gibt es trotzdem eine Möglichkeit, die Linie per Macro zu löschen? Kann man den Grafikobjekten vielleicht bestimmte NAMEN geben statt der Nummern?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
.ConvertToShape.Name = "Test"
ransi
hallo
habe auch mal den recorder bemüht.
Vieleicht hilfts dir weiter:


Option Explicit
Sub Makro1()
    With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 170.25, 267.75)
        .AddNodes msoSegmentCurve, msoEditingAuto, 240#, 220.5
        .AddNodes msoSegmentCurve, msoEditingAuto, 264.75, 267.75
        .AddNodes msoSegmentCurve, msoEditingAuto, 348.75, 236.25
        .AddNodes msoSegmentCurve, msoEditingAuto, 346.5, 242.25
        .AddNodes msoSegmentCurve, msoEditingAuto, 346.5, 262.5
        .AddNodes msoSegmentCurve, msoEditingAuto, 381#, 279.75
'statt .ConvertToShape.Select
        .ConvertToShape.Name = "Test"
    End With
End Sub
Public Sub makro2()
ActiveSheet.Shapes("Test").Delete
End Sub

ransi
Anzeige
AW: .ConvertToShape.Name = "Test"
24.11.2005 18:37:40
Charles
Vielen Dank! So hatte ich mir das vorgestellt.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige