Makro Diagramm Position festlegen

Bild

Betrifft: Makro Diagramm Position festlegen
von: Tümpel
Geschrieben am: 11.11.2003 09:36:08

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

Bild


Betrifft: AW: ActiveChart.Parent.Left=100
von: Galenzo
Geschrieben am: 11.11.2003 10:08:02

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!


Bild

Beiträge aus den Excel-Beispielen zum Thema " Makro Diagramm Position festlegen"