VBA-Textfeld in Diagramm erstellen
Mathias.kirchhoff
per VBA habe ich ein eingebettetes Diagramm erstellt. Dieses Diagramm
soll dann als GIF-Datei gespeichert werden (funktioniert soweit auch
schon). Nun möchte ich noch ein Textfeld (möglichst in der unteren
rechten Ecke) einfügen, in dem der Quellenhinweis erfolgen soll. Der
Inhalt des Feldes ist immer konstant und muss nicht aus der Tabelle
(Datenquelle) gelesen werden.
Ich habe schon diverse Bücher und Newsgroups durchstöbert, aber leider
keine Lösung gefunden.
Ich freue mich über jeden Tipp!
Gruß, Mathias.
stefan onken
du kannst zwar ein Textfeld in einem in eine Tabelle
eingebetteten Diagramm erstellen, aber das ist nicht an
das Diagramm gekoppelt und wird nicht im gif erscheinen
(oder doch ? habs nicht getestet). In einem Diagrammblatt
wiederum wird das Textfeld mit gespeichert.
Nutze den Makrorekorder für:
klicke eine Säule bzw Linie deines Diagramms, bis sie als
einzige markiert ist, rechte Maustaste, Datenpunkt
formatieren, Datenbeschriftung, Wert anzeigen. Diesen Wert
wiederum anklicken und nach deinen Wünschen verschieben
und den Text ändern.
Gutes gelingen
stefan
>-----Originalnachricht-----
>.
>
Frank Arendt-Theilen
erstelle erst das Diagramm komplett mit dem Textfeld, und erst erst
abschließend das Diagramm als GIF-Datei.
Mit dem Makro-Rekorder bekommst du den anzupassenden Ausgangscode.
MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de
Mathias.kirchhoff
herzlichen Dank für Eure Hinweise. Das mit dem Makro aufzeichnen hatte
ich auch schon ausprobiert. Bislang hatte es nicht funktioniert.
Nachdem ich von Euch den gleichen Tipp erhalten habe, habe ich mir
mein Code genauer angeschaut und festgestellt, dass ich den Fokus
nicht auf das Diagramm gelegt habe. Ohne Eure Hinweise hätte ich
wahrscheinlich nicht noch einmal genauer geschaut und resigniert.
D A N K E !!!!
Hier die minimal erforderlich Zeilen um ein Textfeld in ein
eingebettetes Diagramm einzufügen:
---- schnipp on ----
Sheets(1).ChartObjects(1).Activate
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, _
280, 280, 10, 10). _
Characters.Text = "dies ist ein Textfeld"
---- schnipp off ----
Dankbare Grüße von Mathias.