automatische Nummerierung von Zeichenobjekten
10.05.2004 15:04:16
Zeichenobjekten
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