[VBA] Μεταβολή ιδιότητας Caption σε Optionbutton με vba

[kalkandi1]

Kαλησπέρα,

σε ένα φύλλο εργασίας έχω εισάγει μια εικόνα (στην οποία έχει αποδοθεί μια μακροεντολή με όνομα test στην λειτουργική μονάδα module1) και ένα OptionButton. Επιλέγοντας την εικόνα καλείται η λειτουργία test και θέλω να μεταβάλει στο αντικείμενο OptionButton1 του φύλλου sheet1 την ιδιότητα Caption στην τιμή “ok”

Μπορεί να γίνει ?? με αυτό τον τρόπο ??? ( δείτε το συννημένο αρχείο ) και όχι μέσα από τον κώδικα του φύλλου sheet1

ευχαριστώ εκ των προτέρων

[Tasos]

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

Μπορείς να καλέσεις αντικείμενο Active X που βρίσκεται σε φύλλο (στην περίπτωση σου το "OptionButton1"), χρησιμοποιείς το εξής:

Option Explicit 'πρέπει να περιλαμβάνεται σε κάθε λειτουργική μονάδα του βιβλίου

Sub test()
   Sheet1.OptionButton1.Caption = "Ok"  '** βλ.εικόνα παρακάτω
End Sub

CodeName.png

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

Option Explicit

Private Sub CommandButton1_Click()
       Me.OptionButton1.Caption = "Ok"
End Sub

Καλή συνέχεια!

Φιλικά

Τάσος

[kalkandi1]

Σε ευχαριστώ Τάσο κατανοητό το παράδειγμα και η απάντησή του ... ειλικρινά ευχαριστώ το δοκίμασα κιόλας

[kalkandi1]

Tάσο καλησπέρα,
το ίδιο πως γίνεται στο word ( να καλέσεις αντικείμενο στο module )????

[Tasos]

Καλημέρα σε όλους!

Αγαπητή Λίζα, δες ένα παράδειγμα:

Option Explicit

' ThisDocument = Το κωδικό όνομα του εγγράφου που περιέχει το κουμπί επιλογής
' (όπως στην εικόνα του προηγούμενου μου μηνύματος).

Sub test()
    ThisDocument.OptionButton1.Caption = "OK"
End Sub

Καλή συνέχεια