Cześć,
msoControlButtonPopup to nie jest ciąg tekstowy. To stała, liczba typu Long o wartości 12.
Wiec:
1. albo wpiszesz w komórkę odpowiednie wartości liczbowe, odpowiadające poszczególnym kontrolkom
2. albo napiszesz funkcje, która konwertowałaby ciągi tekstowe typu msoControlButtonPopup na liczby,
Dim TypKontrolki As MsoControlType
TypKontrolki = ControlNumber(Application.ActiveSheet.Range("a1").Value)
Function ControlNumber(strName As String ) as Long
Select Case strName
Case "msoControlButtonPopup"
ControlNumber=12
.
.
.
End Select
End Function
Cytat:Witam,
Chciałbym tworzyć menu z automatu na podstawie poszczególnych pozycji zdefiniowanych w arkuszu. Jedną ze zdefiniowanych właściwości jest typ kontrolki. Nie chciałbym definiować tego w procedurze
Dim TypKontrolki As MsoControlType
TypKontrolki = msoControlButtonPopup
tylko pobrać typ kontrolki z arkusza
Dim TypKontrolki As MsoControlType
TypKontrolki = Application.ActiveSheet.Range("a1")
gdzie w komórce a1 mam wpisane msoControlButtonPopup
I wyskakuje mi błąd. Proszę o pomoc.
|