Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Makro Diagramm Position festlegen

Forumthread: Makro Diagramm Position festlegen

Makro Diagramm Position festlegen
11.11.2003 10:36:08
Tümpel
Hallo,

ich habe ein Makro erstellt, welches ein Diagram automatisch erstellt. Jedoch stetzt er das Diagramm einfach in die Mitte des Blattes, ich möchte aber angeben wo er das Diagramm hinsetzt.
Ist das möglich ?
Makroteil für Diagramm:

Range(dstart & ":" & dende).Select
Charts.Add
With ActiveChart.PlotArea
.Width = ActiveChart.ChartArea.Width - 200
.Height = ActiveChart.ChartArea.Height - 200
End With
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(dstart & ":" & dende), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"

With ActiveChart

.HasTitle = True
.ChartTitle.Characters.Text = title
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False

Ich vermute irgendwie bei ActiveChart.Location Where:*****....
Aber weis nicht wie, danke schonmal für Antworten.

Gruß Tümpel
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveChart.Parent.Left=100
11.11.2003 11:08:02
Galenzo
Hallo,
mußt du die .Left bzw .Top-Eigenschaften des übergeordneten Objekts (.parent) ändern.
Würde dann so aussehen:


    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Title"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .HasLegend = False
        .Parent.Left = 200
        .Parent.Top = 100
    End With


Viel Erfolg!
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige