Steuerelement mit Variabler ansprechen
15.12.2003 00:53:51
Michael Rapp
ich habe eine Userform "frm_GraphSelector" mit vielen Bildern zum Einfügen von Grafiken gebastelt. Funktioniert gut. Nun will ich ControlTipText hinzufügen.
Das Einlesen funktioniert gut, aber ich weiß nicht, wie ich 122 benannte Schaltflächen "Icon_1" bis "Icon_122" mit einer Schleife ansprechen kann. Mein Code sieht so aus:
Private Sub UserForm_Initialize()
Dim strControlTips(122) As String
Dim i As Integer
Dim intRow As Integer
intRow = 177
For i = 1 To 122
strControlTips(i) = Sheet27.Range("CG" & intRow)
intRow = intRow + 1
Next
For i = 1 To 122
frm_GraphSelector.Icon_(i).ControlTipText = strControlTips(i)
Next
End Sub
Die Zeile mit ".Icon_(i)" klappt nicht. Wie setzte ich den Namen aus einem festen Text und einer Variablen Nummer zusammen, sodass er erkannt wird?
Danke für Eure Zeit und Hilfe
Michael Rapp