probiere es mal so - folgendes bezieht sich darauf, dass du mehrere Shapes im Tabellenblatt hast und den Namen des SpinButton nicht kennst: :21:
Gehe in den VBA Editor (ALT+F11)
Kopiere folgenden Code in ein allgemeines Modul:
Code:
Option Explicit
Public Sub Main()
Dim shpShape As Shape
For Each shpShape In Tabelle1.Shapes
With shpShape
If .Type = msoFormControl Then
If .Name = "Spinner 2" Then
.Height = 40
.Width = 40
End If
End If
End With
Next shpShape
End Sub
Public Sub Main_1()
Dim shpShape As Shape
For Each shpShape In Tabelle1.Shapes
With shpShape
If .Type = msoFormControl Then
MsgBox .Name
End If
End With
Next shpShape
End Sub
Starte zuerst "Public Sub Main_1"
Hier werden dir nun die Namen der Shapes ausgegeben. Wenn der SpinButton aus Formularsteuerelemente ist heißt er z. B. "Spinner 1". Die Zahl kann natürlich variieren.
Den Namen trägst du in der Sub "Public Sub Main" ein. Bei mir steht da jetzt "Spinner 2".