Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramme show/hide?

Diagramme show/hide?
01.12.2003 14:35:32
Thomas
Hallo,

Kann man Diagramme ähnlich wie Zeilen und Spalten mit einem Makro show/hide machen? Kann man diese Diagramme irgendwie fest an einer Zelle verankern, so dass sie beim hervorholen wieder am alten Platz erscheint?

Gruss

Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: Diagramme show/hide?
01.12.2003 14:41:14
DieterB
Hallo Thomas,
ja das geht.
Wenn Du das Diagramm über VBA erstellts(?),
kannst Du eine bestimmte Position angeben

Gruß

DieterB


Sub Dia1()
Dim Dia As ChartObject
Dim s As String
Dim i As Integer
ActiveSheet.ChartObjects.Delete
Set Dia = ActiveSheet.ChartObjects.Add _
(5, 165, 710, 1500)
Dia.Name = "Name"
i = ActiveSheet.Range("U2").End(xlDown).Row
Range("U1:W" & i).Copy
ActiveSheet.ChartObjects("Name").Activate
ActiveChart.SeriesCollection.Paste _
Rowcol:=xlColumns, SeriesLabels:=False, _
CategoryLabels:=True, Replace:=True, NewSeries:=True
Application.CutCopyMode = True
With ActiveChart
.ChartType = xlBarClustered
.HasLegend = False
.HasTitle = True
.ChartTitle.Text = s
.PlotArea.Interior.ColorIndex = 35
End With
End Sub

Anzeige
AW: Diagramme show/hide?
01.12.2003 14:44:40
K.Rola
Hallo,

das Aus- oder Einblenden verschiebt die Diagramme doch nicht.

Option Explicit

Sub ein_aus()
Dim ch As Shape
For Each ch In ActiveSheet.Shapes
If ch.Type = 3 Then
ch.Visible = Not ch.Visible
End If
Next
End Sub


Gruß K.Rola
Danke; werds ausprobieren. o.T.
01.12.2003 14:52:33
Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige