Supportnet / Forum / Tabellenkalkulation
Makro
Frage
Hallo zusammen,
ich benötige ein Makro um Diagramme aus Tabellenblättern in der gleichen Arbeitsmappe in ein neues Arbeitsblatt einfügen zu können. Des weiteren muss die Größe noch angepasst werden bevor es eingefügt werden kann.
Da ich noch Anfänger im Bereich Makro's bin, benötige ich Hilfe.
Das sind meine ersten Programmier"künste" :-)
Sub Diagrammholen()
ActiveSheet.DrawingObjects.Copy
Range("B28").Select
ActiveSheet.Paste
ActiveSheet.DrawingObjects.Select "wie markier ich nur eins?"
...jetzt sollte noch die GrößenAnpassung kommen
End Sub
Habe es jetzt mal auf dem gleichen Tabellenblatt getestet aber später muss ich Diagramme auf mehreren bestimmten Arbeitsblättern kopieren und in der richtigen Größe an einer vorgegebenen Stelle auf ein neues Arbeitsblatt einfügen können.
Zusatzfragen:
Wie kann ich das ActiveSheet umgehen ? Will nicht das ganze Sheet nehmen sondern eine Seite auf einem Sheet od gleich gezielt einzelne Diagramme.
Antwort 1 von Beverly
Hi,
aus dem Betreff war nun ganz und gar nicht zu ersehen, dass es sich um Diagramme handelt. Deshalb bin ich erst jetzt, und auch nur deshalb darauf aufmerksam geworden, weil mich jemand darauf aufmerksam gemacht hat. Ein aussagekräftiger Betreff hilft in vielen Fällen wesentlich, Antworten zu beschleunigen.
Schau mal auf meine HP, Seite "Diagramme m. VBA". Dort gibt es das Beispiel Kopieren andere Tabelle und das Beispiel Eigenschaften. Sie sollten dir als Anregung weiterhelfen können.
Bis später,
Karin
aus dem Betreff war nun ganz und gar nicht zu ersehen, dass es sich um Diagramme handelt. Deshalb bin ich erst jetzt, und auch nur deshalb darauf aufmerksam geworden, weil mich jemand darauf aufmerksam gemacht hat. Ein aussagekräftiger Betreff hilft in vielen Fällen wesentlich, Antworten zu beschleunigen.
Schau mal auf meine HP, Seite "Diagramme m. VBA". Dort gibt es das Beispiel Kopieren andere Tabelle und das Beispiel Eigenschaften. Sie sollten dir als Anregung weiterhelfen können.
Bis später,
Karin