Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige