Schaltflächen verrutschen / fixieren

[Mick-DUS]

Schönen Sonntag Zusammen,

habe auf einem Arbeitsblatt Schaltflächen ( CommandButton) denen ich Makros zugewiesen habe. Nun ereilt mich folgendes Problem: Ich haben die CB´s an Zellgrößen angepasst und in den Eigenschaften die Locked Eigenschaft auf true gesetzt.
Jedoch verschieben und verkleinern sich die Buttons nach mehrmaligem öffnen der AMappe. Die Mappe wird von verschieden Arbeitsplätzen aufgerufen und bearbeitet. Die Plätze haben unterschiedliche Monitore und Auflösungen und ich vermute darin einen Zusammenhang.
Kann ich die CB´s so fixieren, dass diese immer in Größe und Position bleiben wie eingestellt? Evtl über VBA ?

Gruß
Mick-DUS

[schauan]

Hallo Mick,

ja, Du könntest per VBA für die Position und Größe feste Werte programmieren und beim Öffnen der Datei verarbeiten.

[Rabe]

Hallo André "Hajo",  :19:

ja, Du könntest per VBA für die Position und Größe feste Werte programmieren und beim Öffnen der Datei verarbeiten.

er wollte bestimmt eigentlich gleich ein Beispiel haben.

[Käpt'n Blaubär]

Hallo Ralf,

ich mache dann gewöhnlich sowas

    With CommandButton1
        .Hight = 185.25
        .Left = 659.25
        .Top = 35.25
        .Width = 239.25
        .Visible = True
    End With

[schauan]

Hallöchen,

in Anlehnung an Peter's Beispiel kannst Du den Code im Modul DieseArbeitsmappe in eine Makro Workbook_Open einfügen. Alternativ wäre z.B. auch im betreffenden Blatt das Ereignis Worksheet_Activate möglich.

Microsoft Excel Objekt DieseArbeitsmappe

Private Sub Workbook_Open() 
'Combobox auf b2 positionieren 
With Sheets("Tabelle1").ComboBox1 
  'linke obere Pos. von b2 uebernehmen 
  .Left = Cells(2, 2).Left 
  'linke obere Pos. von b2 uebernehmen 
  .Top = Cells(2, 2).Top 
  'breite von b2 uebernehmen 
  .Width = Cells(2, 2).Width 
  'hoehe von b2 uebernehmen 
  .Height = Cells(2, 2).Height 
'Ende Combobox auf b2 positionieren 
End With 
End Sub