Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagramm mit Makro beenden

Diagramm mit Makro beenden
10.07.2006 21:32:06
Matthias
Hallo,
wie kann ich ein Diagramm mit einem Makro wieder beenden?
Und wie kann ich dieses Diagramm ausrichten?
Nach der Theorie im Buch scheitere ich.
Hier meine Diagramm-Code:

Sub Makro1()
' Makro1 Makro
Range("K24:K33").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$K$24:$K$33"), PlotBy:= _
xlColumns
ActiveChart.ChartType = xl3DPie
End Sub

Danke im voraus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm mit Makro beenden
11.07.2006 09:37:13
Herbert
so kannst du es ausrichten:
With Sheets("Chart")
l = .Range("b5").Left: t = .Range("b5").Top
.ChartObjects.Add(l, t, 410, 250).Name = "Diagramm1"
End With
was meinst du mit "ein Diagramm mit einem Makro wieder beenden" ?
gruß Herbert
AW: Diagramm mit Makro beenden
11.07.2006 09:56:11
Matthias
Ich habe das Diagramm aufgezeichnet, und einer Schaltfläche zugewiesen.
Aber wie kann ich dieses geöffnete Diagramm mit einer neuen Schaltfläche schließen?
AW: Diagramm mit Makro beenden
11.07.2006 10:13:19
Herbert
ein Diagramm kannst du gar nicht Schließen !
höchstens ein Diagrammblatt oder eine Tabelle mit einem
eingebetteten Diagramm ausblenden !
gruß Herbert
AW: Diagramm mit Makro beenden
11.07.2006 10:21:37
Herbert
ein "Chartobject" kann man auch ausblenden...
kommt einem "Schließen" gleich...

Sub ausblenden()
Dim cht As ChartObject
With Sheets("Test")
For Each cht In ActiveSheet.ChartObjects
cht.Visible = False
Next cht
End With
End Sub

gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige