Spin Button Größe

[deschroe]

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

[00202]

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?

[deschroe]

Hallo,

danke für deine Antwort.

Hat geklappt!