Ich habe auf einem Excel Blatt eine 2-spaltige aber recht lange Tabelle. Daraus entsteht per Schaltfläche ein Diagramm rechts auf der gleichen Seite. Durch Markierung lässt sich auch ein Diagramm für einen beliebigen Teilbereich der Tabelle anfordern. Dazu kann es notwendig sein, dieTabelle nach unten zu rollen, womit der rechts sichtbareTeil (Diagramm, Schaltlfächen,Texte) verschwindet.
Die Objekte auf der rechten Seite werden aber gebraucht, um zum Beipiel das neue Dagramm anzufordern und anzuzeigen. Deshalb gibt es einen Macro (Strg + b), der diese Objekte in den sichtbaren Bereich verschiebt. Funktioniert alles ganz gut. Nur die Namen der benannten Objekten sind etwas kurios. Während der Entwicklung wurden mehrfach Schalflächen und Textfelder gelöscht und wieder eingefügt. Damit sind endgültige Namen entstanden, die schlecht sortiert, und nicht plausibel sind. Um die Verschiebung durchzuführen wird erfolgreich die beigfügte Befehlssequenz genutzt:
With ActiveSheet
.Shapes("Button 3").IncrementTop DeltaA 'Button 3
.Shapes("Button 6").IncrementTop DeltaA 'Button 6
.Shapes.Range(Array("TextBox 1")).Select
Selection.ShapeRange.IncrementTop DeltaA 'TextBox 1
.Shapes("GoldChart").IncrementTop DeltaA 'Chart
.Shapes.Range(Array("TextBox 6")).Select
Selection.ShapeRange.IncrementTop DeltaA 'TextBox 6
End With
Nun meine Frage: Gibt es per VBA einen einfachen Weg, um die Objekte umzubenennen, z.B. im folgenden Sinne
Rename Button 3, Button 1
Rename Button 6, Button 2
Ich habe dazu bisher noch nichts Nützliches gefunden.