Benötige Hilfe bei Diagrammen
24.07.2008 12:02:24
Lavoisier
Auf einigen excel-Blättern habe ich es mit mehreren Diagrammen zu tun. Einige davon sind nicht sichtbar und zwar deshalb, weil sich diese in einem Bereich befinden, der (durch das Ausblenden einiger Zeilen!) ausgeblendet ist.
Mit Hilfe eines Moduls sollen die sichtbaren (und nur diese!) Diagramme nummeriert werden. Ein Textfeld ist dafür vorgesehen und auf allen Diagrammen vorhanden.
Problem: Die Position und Größe der Diagrammflächen kann ich schon ermitteln:
Set shDiagramm1 = Worksheets ("Tabelle1").Shapes(1)
pos_oben = shDiagramm1.Top
pos_Links = shDiagramm1.Left
Hoehe = shDiagramm1.Height
Breite = shDiagramm1.Width
Das, was ich benötige, sind die Zeilennummer der Zeichnungsflächen, um zu prüfen ob diese Zeilen ausgeblendet sind.
Wie lässt sich das ermitteln? Für die Unterstützung möchte ich mich ganz herzlich im Voraus bedanken.
Antoine-Laurent