Diagramm Name

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


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Diagramm Name
von: KViertel
Geschrieben am: 16.07.2002 - 14:15:29

Hallo,

Mit der u.a. Prozedur erstelle ich im Blatt auf Basis einer Pivottabelle ein Diagramm, das ich später in ein Word-Document übernehmen will. Um später eindeutig selectieren zu können muß das Chartobjekt mit einem eindutigen Namen versehen werden, was ich ansich schon vorgesehen habe. Das Workbook besteht aus mehreren Tabellen mit Charts. Leider ist mir nicht klar, wie ich dieses Objekt mit einem eigenen Namen versehen kann.


Sub Ku_Diag_erstellen(Blattname, Mark, charttitel, chartname As String)
'Grafik erstellen
Range(Mark).Select
Charts.Add
ActiveChart.SetSourceData Source:=Sheets(Blattname).Range(Mark)
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.HasPivotFields = False
ActiveChart.Location Where:=xlLocationAsObject, Name:=Blattname
ActiveChart.ChartType = xl3DPie
ActiveChart.Legend.AutoScaleFont = True
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent, LegendKey:=False, _
HasLeaderLines:=True
With ActiveChart

.HasTitle = True
.ChartTitle.Characters.Text = charttitel
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
With .PlotArea.Border
.Weight = xlThin
.LineStyle = xlNone
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = 1
End With
End With

Kann mir da jemand helfen?

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Diagramm Name"