Diagramm festen Platz F1 bis S30 zuweisen

Bild

Betrifft: Diagramm festen Platz F1 bis S30 zuweisen von: michael
Geschrieben am: 16.02.2005 23:18:11

HAllo,

wie kan ich in einem Macro einem Diagramm eine feste Position im Tabellenblatt zuweisen z.B. von F1 bis S30?

DAnke Michael

Bild


Betrifft: AW: Diagramm festen Platz F1 bis S30 zuweisen von: K.Rola
Geschrieben am: 17.02.2005 00:58:19

Hallo,


Sub Skalieren()
With ActiveSheet.ChartObjects(1)
  .Left = [f1].Left
  .Top = [f1].Top
  .Width = [s30].Left - [f1].Left
  .Height = [s30].Top
End With
End Sub


Gruß K.Rola


Bild


Betrifft: AW: Diagramm festen Platz F1 bis S30 zuweisen von: michael
Geschrieben am: 17.02.2005 09:45:38

Hallo K.Rola,

danke für die Hilfe.

With ActiveSheet.ChartObjects(1) bezieht sich nur auf das Diagramm 1.
Wie kann ich das momentan aktive Diagramm skalieren?
Gibt es einen Befehl analog ActiveChart oder kann ich die Nummer des Chartobjekts auslesen und als Variable statt der 1 einsetzen?

Danke
Michael


Bild


Betrifft: AW: Diagramm festen Platz F1 bis S30 zuweisen von: K.Rola
Geschrieben am: 17.02.2005 15:42:31

Hallo,

den Index einfach mal testen und dann einsetzen: ActiveSheet.ChartObjects(3)

Gruß K.Rola


Bild


Betrifft: hmm.. kommt fehler von: michael
Geschrieben am: 17.02.2005 20:31:15

Hallo K.Rola,

hatte ich auch schon probiert (wobei diese Lösung auch nur im Testbetrieb praktikabel wäre und auch da nicht da beim Ändern von (1) auf (3) das Makro zurückgestzt werden will)

Hast du noch ne Idee, wie direkt der Name ausgelesen und später eingesetzt werden könnte?

Gruß
Michael


Bild


Betrifft: AW: hmm.. kommt fehler von: K.Rola
Geschrieben am: 17.02.2005 21:02:59

Hallo,

ich weiß nicht, was du vorhast, beschreib mal.

Gruß K.Rola


Bild


Betrifft: also.... von: michael
Geschrieben am: 17.02.2005 21:20:04

Hallo K.Rola,

... ich will dass das Macro von selbst versteht dass ich nach dem x-ten Durchlauf des Macros das x-te Diagramm erstellt habe. Somit müsste das Macro feststellen wie nun das zuletzt erstellte (noch selectierte) Diagramm heißt.
Dieser Namen muss dann später an With ActiveSheet.ChartObjects(1) anstatt der 1 übergeben werden.

irgendie sowas:
n= activeChart.name
With ActiveSheet.ChartObjects(n)

leider geht das aber nicht (kam was wie Objekt nicht vorhanden?)...und ich habe keine weitere Idee mangels Kenntnis...

Gruß Michael




Bild


Betrifft: AW: also.... von: K.Rola
Geschrieben am: 19.02.2005 12:53:42

Hallo,

das oder die Diagramme werden laut Code an eine fixe Position verschoben. Das ist
nach meinem Verständnis ein einmaliger Vorgang. Warum sollte das nicht über den Index
gehen?

Gruß K.Rola


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Diagramm festen Platz F1 bis S30 zuweisen"