Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon HMu vom 04.05.2019, 14:12 Options
Makro
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.
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 vom 04.05.2019, 17:16 Options
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
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
kann wegen makro nicht drucken - was machen?
srepsac 26.06.2007 - 118 Hits - 1 Antwort
Markos unsichtbar/sichtbar schalten
User3 17.09.2007 - 72 Hits - 1 Antwort
Makro für alle Tabellenblätter verfügbar machen
dieter1958 12.01.2008 - 108 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
