1 Κάντε κλικ στο κουμπί " Έναρξη", " Microsoft Visual Basic for Applications " 2
Εισάγετε τον παρακάτω κωδικό στο ανοιχτό παράθυρο : .
Sub Macro1 ( )
« Macro1 Macro
Dim chtTemp Όπως φαίνεται στο Διάγραμμα
Dim objTemp As Object
Set chtTemp = ActiveSheet.ChartObjects ( 1 ) . Διάγραμμα
Set objTemp = chtTemp.Shapes.AddTextbox
( msoTextOrientationHorizontal , 1 , 1 , 150 , 20 )
objTemp.Select
Selection.Formula = " = ' " & chtTemp.Parent.Parent.Name &" ! Α1 "
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα