Diagramm Titel

Forumthread: Diagramm Titel

Diagramm Titel

01.02.2004 15:21:39

Dominik

Hallo zusammen,
wie kann ich in VBA eine Zellenbezug einfügen.
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
??Zelle A2??
Im oberen Code soll aus dem sheet eine Zelle A2 als Titel für das diagramm genommen werden.
Wie stelle ich das an?
Dominik

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Diagramm Titel

01.02.2004 15:33:10

K.Rola
AW: Diagramm Titel

01.02.2004 15:54:05

Ramses
AW: Diagramm Titel

02.02.2004 08:30:34

Dominik

AW: Diagramm Titel

01.02.2004 15:33:10

K.Rola

Hallo,
Option Explicit


Sub Dia_title()
Dim dia As Chart
Set dia = ActiveSheet.ChartObjects("Diagramm 1").Chart
With dia
.HasTitle = True
.ChartTitle.Characters.Text = [d3].Text
End With
End Sub

Gruß K.Rola

AW: Diagramm Titel

01.02.2004 15:54:05

Ramses

Hallo
in Ergänzung zu K.Rola's Vorschlag, hier die dynamische Variante


Sub Dyn_Title()
Dim dia As Chart
Set dia = ActiveSheet.ChartObjects("Diagramm 1").Chart
With dia
.HasTitle = True
'zelle im R1C1 Format angeben
.ChartTitle.Text = "=Tabelle1!R1C1"
End With
End Sub

Hier wird auf C1 = R1C1 verwiesen. sobald sich der Inhalt in C1 verändert, wird auch der Title im Diagramm automatisch angepasst
Gruss Rainer

AW: Diagramm Titel

02.02.2004 08:30:34

Dominik

Morgen,
hab gestern noch mal intensiv versucht, er klappt aber immer noch nicht so ganz wie ich mir das vorstelle. Hab jetzt mal den "ganzen" Code eingefügt:
Sub Makro7()
'
' Makro7 Makro
' Diagramm
Dim strDateiname As String
Dim strFile As String
'Dim Dia As Chart

strDateiname = ActiveWorkbook.Name
strFile = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Workbooks(strDateiname).Sheets(strFile). _
Range("A8:A368,B8:B368,D8:D368"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""Messtaster außen"""
ActiveChart.SeriesCollection(2).Name = "=""Messtaster innen"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Diagramm"

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _

.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Drehwinkel [°]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Planschlag [µm]"
Das makro soll also als chartTitle die Zelle A2 vom Worksheet nehmen.
Dominik
P.S.
ICh habs mit beiden Vorschlägen mal probiert, hat aber nicht so funktioniert!!!

Beliebteste Forumthreads (12 Monate)

Forumthread: Diagramm Titel

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

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread