Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 02-07-11, 13:29
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλησπέρα Λίζα και καλωσόρισες στην παρέα μας!

Μπορείς να καλέσεις αντικείμενο Active X που βρίσκεται σε φύλλο (στην περίπτωση σου το "OptionButton1"), χρησιμοποιείς το εξής:
Κώδικας:
Option Explicit 'πρέπει να περιλαμβάνεται σε κάθε λειτουργική μονάδα του βιβλίου

Sub test()
   Sheet1.OptionButton1.Caption = "Ok"  '** βλ.εικόνα παρακάτω
End Sub
Μεταβολή ιδιότητας Caption σε Optionbutton με vba-codename.png

Στο παράδειγμα σου δεν έχεις κάποια εικόνα αλλά ένα κουμπί (Επίσης Active X) και εφόσον το OptionButton1 βρίσκεται επίσης στο ίδιο φύλλο, θα μπορούσες στο συμβάν CommandButton1_Click() του κουμπιού να γράψεις:


Κώδικας:
Option Explicit

Private Sub CommandButton1_Click()
       Me.OptionButton1.Caption = "Ok"
End Sub
Καλή συνέχεια!

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση