Option Explicit
Sub Test()
Call MoveButton("CommandButton1", "Tabelle1", "A5")
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
Sub SchaltflächeInfo_einfügen()
Dim objButton As Object
Dim strObjekt As String
Dim cTop As Currency
Dim cLeft As Currency
Dim cHeight As Currency
Dim cWidth As Currency
Dim sheet As Worksheet
Set sheet = ThisWorkbook.Worksheets("Einkauf")
With Range("L2")
cTop = .Top
cLeft = .Left
cHeight = .Height
cWidth = .Width
End With
Set objButton = ActiveSheet.Buttons.Add(cLeft, cTop, cWidth, cHeight)
objButton.OnAction = "info"
objButton.Caption = "Info"
objButton.Placement = xlMoveAndSize
objButton.Name = "btnInfo"
End Sub
With sheet.Range("L2")
cTop = .Top
cLeft = .Left
cHeight = .Height
cWidth = .Width
End With
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen