Hallo, ich bin mit Makro´s nicht groß vertraut, habe es aber geschafft mit einem Makro "AcitveX-CheckBoxen" zu erstellen, zu positionieren, die Größe und Formatierung anzupassen. Jetzt muss ich noch den Text (Caption), die Schriftart (Font.Name) und die Schriftgröße (Font.Size) anpassen. Ich habe das mit "Object" versucht. Dies gelingt mir aber nur mit jeweils einer meiner Anforderungen, nicht aber in Kombination. Außerdem unterbricht das Makro sobald ich den Befehl "Object" einfüge an dieser Stelle und führt die nachfolgenden Anweisungen nicht mehr aus. Ich hoffe, da kann jemand weiterhelfen.
Danke
Private Sub CheckBox2_Click()
If ActiveSheet.CheckBox2.Value = True Then
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=397.5, Top:=169.5, _
Width:=69.75, Height:=14.25).Object.Font.Size=8
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
End If
Range("A13").Select
If ActiveSheet.CheckBox2.Value = False Then
Rows("33").EntireRow.Hidden = True
Else
Rows("33").EntireRow.Hidden = False
End If
End Sub
|