2016-08-20 5 views
2

Ich habe ein Label auf meiner Registerkarte Diagramm hinzugefügt, aber wenn ich versuche, seine Schriftart zu ändern, sind alle Felder ausgegraut. Ich habe genug gesucht, aber keine Lösung gefunden. Ich füge einen Screenshot meiner Chart-Registerkarte an. enter image description hereExcel VBA Eigenschaften von Form Control auf Chart Tab ändern

Ich möchte die Schriftarteigenschaften dieses Labels 10 auf der Registerkarte Diagramm ändern. Gibt es einen Weg, wie ich per VBA auf die Eigenschaften zugreifen kann.

Um den Text zu ändern, habe ich ein Makro aufgenommen.

ActiveChart.Shapes("Label 10").Select 
Selection.Characters.Text = "Mohit" 
ActiveChart.ChartArea.Select 

habe ich versucht, die Zeile Code:

Selection.TextFrame.Characters.Font.Size = 20 

aber es funktioniert nicht. Gibt es eine Möglichkeit, die Farbe und Schriftgröße dieses Etiketts zu ändern?

Alternative, die ich verwende jetzt

Jetzt habe ich Vierecksform verwende anstelle von Label. Was ich erreichen wollte, war, den Namen der ausgewählten Taste (PV, Terrorismus oder SRCC) als Hinweis darauf anzuzeigen, dass diese Taste ausgewählt wurde. Also klickte ich auf PV und meine Serie wurde geändert und Rectangle zeigte den Namen der ausgewählten Bedrohung an. enter image description here

Nun, wenn ich SRCC wieder die gleiche Sache passiert.

Für den Code muss ich nur den Text des Rechtecks ​​jedes Mal ändern, wenn eine Taste gedrückt wird, da ich die Schriftart und Größe des Textes einmal vorbehalte, die gleich bleibt. Ich konnte die Schriftart und die Größe von Text nicht mit einem Label ändern.

Antwort

1
ActiveChart.Shapes("Label 10").Select 
With Selection 
    .Characters.Text = "Mohit" 
    .Font.Size = 20 
End With 

oder Sie können durch ihren Namen Select/Selection Zugriff auf Ihr Chart Objekt vermeiden:

With Charts("ChartName").Shapes("Label 10").TextFrame2.TextRange 
    .Text = "Mohit" 
    .Font.Size = 20 
End With 
+0

Hallo .. Danke für den Code, aber es funktioniert nur bis .Text ....... – Mohit

+0

.font.size löst einen Fehler aus "Objekt unterstützt diese Eigenschaft nicht" – Mohit

+0

Ich habe es auf einem Objekt [Chart] (https://msdn.microsoft.com/en-us/library/office/ff194426.aspx) getestet , von dem über seine Eigenschaft 'Shapes' das Objekt" Label 10 "[Shape] (https://msdn.microsoft.com/de-de/library/office/ff835842.aspx) abgerufen wird. Letzteres macht eine 'TextFrame2' -Eigenschaft verfügbar, die ein [TextFrame2] (https://msdn.microsoft.com/en-us/library/office/ff822136.aspx) -Objekt zurückgibt, dessen' TextRange' -Eigenschaft ein [TextRange2] (https : //msdn.microsoft.com/en-us/library/office/ff863528.aspx) Objekt, das schließlich sowohl eine 'Text'- als auch eine' Font'-Eigenschaft freigibt – user3598756