Guten Morgen,
ich habe ein Problem mit einem Spin Button.
Und zwar ist dieser völlig überdimensioniert und ich bekomme diesen nicht mehr kleiner.
Anbei ein Screenshot.
Im Hintergrund seht ihr die Tabelle.
Über einen Rat wäre ich sehr dankbar
Hallo, :19:
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".
Dann die Sub laufen lassen.
Funktioniert es?
Hallo,
danke für deine Antwort.
Hat geklappt!