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

Makro Diagramm Position festlegen

Forumthread: Makro Diagramm Position festlegen

Makro Diagramm Position festlegen
11.11.2003 09: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 10: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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige