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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Μεταβολή ιδιότητας Caption σε Optionbutton με vba (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1241-metaboli-idiotitas-caption-se-optionbutton-me-visual-basic-applications.html)

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

Kαλησπέρα,

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

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

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

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

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

Κώδικας:

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

Sub test()

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

End Sub

Συνημμένο Αρχείο 1744

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

Κώδικας:

Option Explicit
 

Private Sub CommandButton1_Click()

       Me.OptionButton1.Caption = "Ok"

End Sub

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

Φιλικά

Τάσος

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

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

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

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

Κώδικας:

Option Explicit
 

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

' (όπως στην εικόνα του προηγούμενου μου μηνύματος).
 

Sub test()

    ThisDocument.OptionButton1.Caption = "OK"

End Sub

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