Hallo,
mit folgendem Code erstelle ich Checkboxen auf einem Sheet
For Z = 1 To L
Application.StatusBar = "Checkboxintegration in Zeile: " & Z
For S = 3 To 5
If IsNumeric(sh.Cells(Z, 1).Value) And sh.Cells(Z, 1).Value > 0
sh.OLEObjects.Add(ClassType:="Forms.CheckBox.1").Name = "Cbx" & Format(Z, "00000") & "_" & Format(S, "00000")
With sh.OLEObjects("Cbx" & Format(Z, "00000") & "_" & Format(S, "00000"))
.Object.Caption = ""
.Object.BackColor = vbWhite
.LinkedCell = sh.Cells(Z, S + 12).Address
.SpecialEffect = fmButtonEffectFlat ' Diese Eigenschaft funktioniert hier nicht
End With
End If
Next S
Next Z
Leider kann ich jetzt die Specialeffekt Eigenschaft nicht auf Flat setzen.
Weiß jemand wie es geht?
Danke und Gruß
Helmut