Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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?

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.

90 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige