Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

automatische Nummerierung von Zeichenobjekten

automatische Nummerierung von Zeichenobjekten
10.05.2004 15:04:16
Zeichenobjekten
Hallo Forum!
Ich habe ein VBA-Programm, dass automatisch die Zeilen eines Tabellenblattes abarbeitet und auf einem anderen Tabellenblatt eine WMF-Datei einfügt, das Blatt ausdruckt und dann die WMF-Datei wieder löscht. Ist die Datei nicht vorhanden, wird ein weißes Rechteck eingefügt. Die WMF-Datei wird zwischendurch noch in ihre Bestandteile (hauptsächlich Linien) aufgelöst und alle Linienstärken verändert. Mein Problem ist es, dass Excel die Zeichnungselemente automatisch benennt und dabei durchnummeriert. Z. B. "Rechteck 4862". Da ich dieses Programm in verschiedenen Projekten benutzte kommt es hin und wieder vor, dass Excel eine "magische" Grenze von etwas mehr als 65500 (wahrscheinlich der maximalwert einer Long Integer Variablen) überschreitet. Danach läuft nichts mehr richtig. Es hilft nur noch die sehr aufwändige Struktur der Tabelle und die Makros in eine neue Datei rüber zu kopieren. Dann fängt Excel mit der Nummerierung von vorne an.
Frage: Kann ich den Zähler den Excel für die Objektnummerierung verwendet nicht selbst zurücksetzen? Oder gibt es eine andere Lösung?
Danke im Voraus, Stefan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Nummerierung von Zeichenobjekten
10.05.2004 19:46:20
Zeichenobjekten
Hi Stefan,
bei Shapes geht das z.B so:

Sub Test()
Dim Sh as Shape, i as Integer
For i = 1 To 10
Set Sh = Sheets("Tabelle1").Shapes.AddShape(...was auch immer...)
With Sh
.Name = "Bild" & i
End With
Next i
End Sub

Gruß
Christoph
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige