Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
16.02.2005, 13:32 Uhr
~Kily
Gast

Hy Zusammen

Ich bin gerade drann Diagramme im Excel zu erstellen bei denen ich die Datenquellen Dynamisch auswählen kann und dann das diagramm mitels eines CommandButtons aktualisieren kann. Dies hat alles schön geklappt (ich hatte für das erste Diagramm eine einfache Vorlage, die ich dann ausgearbeitet habe). Jedoch bleibe ich an einem Kleinen Problem stehen, wie definiere ich den Diagramm-Namen??? Kann doch nicht so schwer sein aber ich komm einfach nicht drauf

Code:

ActiveSheet.ChartObjects("wo_ändere_ich_diesen_Diagramm_Namen").Chart.SeriesCollection(1)

Bearbeitung von Windalf:

smilie gefixt...

Gruss
Kily

Dieser Post wurde am 16.02.2005 um 14:18 Uhr von Windalf editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
16.02.2005, 14:22 Uhr
Windalf
Der wo fast so viele Posts wie FloSoft...
(Operator)

weiss nicht wie das in VB geht aber von C++ aus gings so...

C++:

pXL->ActiveChart->ChartTitle->Characters->Text = Attribute[j];

musst vermutlich nur irgendwie deinen gewünschten chart haben und dann kannst du bestimmt auch über ChartTitle.Characters.Text = "wo_ändere_ich_diesen_Diagramm_Namen"; setzen
--
...fleißig wie zwei Weißbrote

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
16.02.2005, 14:40 Uhr
~Kily
Gast

Danke für deine schnelle Antwort, leider bin ich immer noch nicht weiter. Ich dachte eigentlich eher an eine Lösung wie z.B "rechtsklick auf Diagramm und dann Optionen und dort kann man den Namen änder den man dann im Makro verwenden kann". Man muss doch einem Objekt, in diesem falle dem diagramm, einen Namen (bzw eine control variable definieren) geben könne womit man es nachher im Makro ansprechen kann.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
16.02.2005, 14:52 Uhr
Windalf
Der wo fast so viele Posts wie FloSoft...
(Operator)

wenn du excel installiert hast wird eigentlich immer eine chm mit installiert... wie das teil heisst hängt von deiner office version ab...
heisst im allgemeinen so VBAXL*.CHM... da steht drin wie die einzelnen excel objekt heissen und wie die members und wie man sie anspricht... darin müsstest du eigentlich alles finden was du brauchst um deine informationen zu bekommen
--
...fleißig wie zwei Weißbrote

Dieser Post wurde am 16.02.2005 um 14:52 Uhr von Windalf editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
16.02.2005, 15:29 Uhr
Airdamn

Wenn Du ein Diagramm erstellst, dann werden die Namen wie folgt automatisch gesetzt:
Chart X

wobei X eine Zahl ist.
Das erste Diagramm heißt also Chart 1.

Visual Basic:

'das selbe wie ActiveSheet.ChartObjects(1).Name
print ActiveSheet.ChartObjects("Chart 1").Name

gibt aus "Chart 1"

Wenn Du den Title des Diagramms ändern willst

Visual Basic:

'ActiveSheet.ChartObjects("Chart 1").Chart.ChartTitle.Characters.Text = "Titel"
ActiveSheet.ChartObjects(1).Chart.ChartTitle.Characters.Text = "Titel"

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

005
16.02.2005, 15:30 Uhr
Windalf
Der wo fast so viele Posts wie FloSoft...
(Operator)

@Airdamn
dann lag ich also richtig...

--
...fleißig wie zwei Weißbrote

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

006
16.02.2005, 15:33 Uhr
Airdamn

genau genommen ja

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

007
17.02.2005, 08:02 Uhr
~Kily
Gast

Ok, Danke vielmals an euch beide :-)

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

008
17.02.2005, 08:08 Uhr
~Kily
Gast

Weiss einer von euch zufällig gerade noch wie man Diagramme mit Balken und Linien (beides in einem Koordinatensystem) ansteuert bzw wie kann ich nicht nur die Balken sondern zusätzlich au noch die Linie steuern

Code:

With Sheets("Production_Sales").ChartObjects("Diagramm 4").Chart.SeriesCollection(1)
       .XValues = "=CPG!R8C" & StartSpalte & ":R8C" & EndSpalte
       .Values = "=CPG!R12C" & StartSpalte & ":R12C" & EndSpalte
End With

'habe mir das ungefähr so gedacht für die zusätzliche Linie, aber es klappt nicht...

With Sheets("Production_Sales").ChartObjects("Diagramm 4").Chart.SeriesCollection(2)
       .Values = "=CPG!R12C" & StartSpalte & ":R12C" & EndSpalte
    End With

Gruss

Kily

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: