Thema Datum  Von Nutzer Rating
Antwort
10.11.2008 15:40:13 Marco
NotSolved
Blau Aw:Diagramme auswählen
 14.11.2008 16:50:30 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
14.11.2008 16:50:30		 Views:
1831		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Diagramme auswählen
Hallo Marco,
ich gehe mal davon aus, dass die Diagramme eingebettet sind, sich also auf einem Tabellenblatt befinden, und du keine weiteren Elemente auf diesem Tabellenblatt hast, die ebenfalls zu Shapes gehören, Dann enthält die Auflistung ActiveSheet.Shapes deine Tabellen. Die Anzahl erfähst du z.B. mit
b=ActiveSheet.Shapes.Count
Ihre Namen schreibst du z.B. mit
Redim c(ActiveSheet.Shapes.Count)
For Each a In ActiveSheet.Shapes
c(i) = a.Name
i=i+1
Next
in das Array c.
Selektieren kannst z.B. mit
ActiveSheet.Shapes(1).Select

Sollten die Diagramme nicht eingebettet sein, funktioniert das mit 'Charts' sinngemäß. Konsultieren ggf. die VBA-Hilfe.

Gruß
Holger


Marco schrieb am 10.11.2008 15:40:13:

Hallo,

ich habe ein ziemlich umfangreiches makro erstellt, stehe aber zum schluss vor einem problem.
Am ende meiner berechnungen habe ich entweder 1,2,3 oder 4 diagramme. diese möchte ich zu guter letzt per knopfdruck selektieren und mit selection.copy kopieren.
Wie kann ich aber alle Diagramme markieren? Ich kenne die Anzahl ja nicht...
Es mit umfangreichen fehlerbehandlungen zu machen ist mir die sache nicht wert.

Besten Dank für Rat und Tat aller Art

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.11.2008 15:40:13 Marco
NotSolved
Blau Aw:Diagramme auswählen
 14.11.2008 16:50:30 Holger
NotSolved