Sub test() Dim z As Range Dim Box() As CheckBox Dim rngz As Range Set rngz = Worksheets("Tabelle1").Cells(4, 2) With Worksheets("Tabelle1").OLEObjects.Add(ClassType:="Forms.CheckBox.1") .Object.Caption = "" .Height = rngz.Height - 5 .Width = rngz.Width / 5 .Top = rngz.Top + (rngz.Height - .Height) / 2 .Left = rngz.Left + (rngz.Width - .Width) / 2 .Object.Name = Box(1) End With End Sub
58.4k Fragen
249k Antworten
7k Nutzer