create button using vba

[luolovepi]

Dim button As OLEObject
    With ActiveCell
        Set button = ActiveSheet.OLEObjects.Add _
            (ClassType:="Forms.CommandButton.1", _
            Link:=False, DisplayAsIcon:=False, _
            Left:=.Left, _
            Top:=.Top, _
            Height:=.Height, _
            Width:=.Width)
 
        button.Object.Caption = .Row
        button.Object.Font.Size = 6
        button.FontStyle = "Bold"
        button.Object.WordWrap = True
        button.Name = "line" & .Row
    End With

I wrote this code and executed. It always shows an error message: "Object doesn't support this property or method". The button was created though error, but the fonstyle was not set to be bold.
I also want to set the button property to be "don't move or size with cells", what should I do in vba?

Best regards,
lolo^^

 

[luolovepi]

Could anyone help me, please?

I really can't find the answer using google..

 

[luolovepi]

I found it's the error takes place at :

button.Object.Font.FontStyle = "Bold"

how should I set this property?

 

[luolovepi]

Soloved!

Dim button As OLEObject
    With ActiveCell
        Set button = ActiveSheet.OLEObjects.Add _
            (ClassType:="Forms.CommandButton.1", _
            Link:=False, DisplayAsIcon:=False, _
            Left:=.Left, _
            Top:=.Top, _
            Height:=.Height, _
            Width:=.Width)
 
        button.Object.Caption = .Row
        button.Object.Font.Size = 6
        button.Object.Font.Bold = True
        button.Object.WordWrap = True
        button.Name = "line" & .Row
    End With

Dim button As OLEObject
    With ActiveCell
        Set button = ActiveSheet.OLEObjects.Add _
            (ClassType:="Forms.CommandButton.1", _
            Link:=False, DisplayAsIcon:=False, _
            Left:=.Left, _
            Top:=.Top, _
            Height:=.Height, _
            Width:=.Width)
 
        button.Object.Caption = .Row
        button.Object.Font.Size = 6
        button.FontStyle = "Bold"
        button.Object.Font.Name = "MS Gothic"  
        button.Object.WordWrap = True
        button.Name = "line" & .Row
    End With

I wrote this code and executed. It always shows an error message: "Object doesn't support this property or method". The button was created though error, but the fonstyle was not set to be bold.
I also want to set the button property to be "don't move or size with cells", what should I do in vba?

Best regards,
lolo^^

 

[LisaMcL]

Thank you so much for posting the solution to this.

I was challenged with the same kind of issue (wanted to toggle button font from "bold" to "regular" on click) and tried everything I could think of... Didn't think of ".Font.Bold = " (though I had several variations on the theme that were close, hadn't landed on the right one