Anzeige
Archiv - Navigation
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagramme automatisch verschieben

Diagramme automatisch verschieben
21.08.2007 15:12:29
alex
Guten Tag!
In meinem Makro möchte ich die Diagramme automatisch verschieben. Der Makrorekorder hilft mir da jedoch nicht weiter ( ActiveSheet.Shapes("Diagramm 3").IncrementTop -1.5) denn, wenn ich mein Diagramm so verschiebe, verschiebt sich der Button mit. (?)
liebe grüße,
alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramme automatisch verschieben
21.08.2007 15:13:00
Onkel
welcher Button?

AW: Diagramme automatisch verschieben
21.08.2007 15:18:06
alex
auf meinem blatt hab ich einen commandbutton. wenn ich den drücke, startet mein makro.
charts = Workbooks(wb).Worksheets(sheet).ChartObjects.Count
for i = 1 to charts
ActiveSheet.Shapes(i).IncrementLeft 15
next i

AW: Diagramme automatisch verschieben
21.08.2007 16:13:00
Beverly
Hi Alex,
hier ein Prinzip-Code

Private Sub CommandButton1_Click()
Dim chDiagramm As ChartObject
For Each chDiagramm In ActiveSheet.ChartObjects
ActiveSheet.Shapes(chDiagramm.Name).IncrementLeft 15
Next chDiagramm
End Sub


________________________________________

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige