AW: Button verändern sich
06.05.2013 12:26:31
Klaus
Hallo Tobiax,
statt dich mit den Buttons herumzuärgern, hier ein Makro mit dem du deine Buttons wieder an Zellen ausrichtest.
Sub PlaceButtons()
Call MoveButton("CommandButton1", "Tabelle1", "B5")
Call MoveButton("CommandButton2", "Tabelle1", "D7")
End Sub
Sub MoveButton(sButton As String, sWks As String, sCell As String)
Dim rng As Range
Set rng = Sheets(sWks).Range(sCell)
With Sheets(sWks).OLEObjects(sButton)
.Top = rng.Top
.Left = rng.Left
'.Width = rng.MergeArea.Width
'.Height = rng.MergeArea.Height
End With
End Sub
Wenn du die beiden auskommentierten Zeilen einkommentierst, wird der Button an die Zellgröße angepasst.
Grüße,
Klaus M.vdT.