Wie fixiert man Bilder oder Knöpfe

[Käpt'n Blaubär]

Hallo,

Da es sich um einen ActiveX - Button handelt, könnte man den manuell nur im Entwurfsmodus verschieben. Könnte ja sein, das macht jemand, der sich bisschen auskennt. Wenn man dann aber wieder drauf drückt, wird er wieder an die "fest" programmierte Stelle geschoben.

ähm ja, ... toll, ... das ist wohl ein bischen fern jeder Realität, aber toll.

[hddiesel]

Hallo Klaus,

auf Wunsch, kannst du die Buttonposition, auch an Zellbereiche anpassen, zusätzlich noch mit Plus Minus korrigieren.
Wann und wo du die Anpassung vornehmen möchtest, kannst du selbst entscheiden.

Code:

Sub Buttons_an_Position()
    With ActiveSheet.CommandButton1
        .Top = Range("C1:C2").Top + 1       'Position Oben
        .Left = Range("C1:C2").Left + 1     'Position Links
        .Width = Range("C1:C2").Width - 2   'Breite
        .Height = Range("C1:C2").Height - 2 'Höhe
    End With
    
    With ActiveSheet.Shapes.Range(Array("Button 2"))
        .Top = Range("D1:D2").Top + 1.5     'Position Oben
        .Left = Range("D1:D2").Left + 1     'Position Links
        .Width = Range("D1:D2").Width - 2.5 'Breite
        .Height = Range("D1:D2").Height - 3 'Höhe
    
    End With

End Sub