Diagramme show/hide?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: Diagramme show/hide?
von: Thomas
Geschrieben am: 01.12.2003 14:35:32

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

Bild


Betrifft: AW: Diagramme show/hide?
von: DieterB
Geschrieben am: 01.12.2003 14:41:14

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



Bild


Betrifft: AW: Diagramme show/hide?
von: K.Rola
Geschrieben am: 01.12.2003 14:44:40

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


Bild


Betrifft: Danke; werds ausprobieren. o.T.
von: Thomas
Geschrieben am: 01.12.2003 14:52:33




Bild

Beiträge aus den Excel-Beispielen zum Thema " Diagramme show/hide?"