Bom dia!!

Porque postar dúvidas tão similares em posts diferentes?

Att

Bom dia!!

Tente assim...

Option Explicit

Sub AleVBA_10037()

Dim oleObj As OLEObject
Dim intCount As Integer
Dim sh As Worksheet
Dim s As Shape
Dim o As OLEObject
Set sh = ActiveSheet
Dim obj As OLEObject

Set oleObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=Range("C10").Left, _
Top:=Range("C10").Top, Width:=108, Height:=19.5)

With oleObj.Object
    .Caption = ""
    .Font.Size = 10
    .Font.Italic = True
    .Font.Bold = True
    .Value = xlOff
End With

intCount = sh.OLEObjects.Count
Debug.Print "OLE Objects = " & intCount

For Each o In sh.OLEObjects
    If o.progID = "Forms.CheckBox.1" Then
        Debug.Print o.Name
        Debug.Print o.OLEType
        Debug.Print o.Object.Value
        Debug.Print o.Object.Caption
        o.Object.Caption = "AleVBA" '<_Tente assim
        o.Object.Value = xlOn
        Debug.Print o.Object.Caption
        Debug.Print o.Object.Value
        Debug.Print o.TopLeftCell.Address
    End If
Next o

Set sh = Nothing

End Sub

Para mais detalhes veja:
http://www.logicwurks.com/CodeExamplePa ... Boxes.html

Att

Bom dia!!

Uma outra forma seria..

Sub AleVBA_()
Dim oleObj As OLEObject
 
Set oleObj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=Range("A1").Left, _
Top:=Range("A1").Top, Width:=108, Height:=19.5)
 
With oleObj.Object
    .Caption = "AleVBA" '<- Rótulo do objeto
    .Font.Size = 10
    .Font.Italic = True
    .Font.Bold = True
End With

End Sub

Att

Alexandre,

Criei dois tópicos porque apesar de ter dois problemas relacionados ao mesmo programa, acho que eles são bem diferentes, inclusive posso resolver um e não resolver o outro. É também a primeira vez que abro um tópico e participo mais ativamente do planilhando.com.br.

Te agradeço pela ajuda, agora funcionou!!!! havia pesquisado e tentado de várias formas, mas sem sucesso.

Agora apareceu um outro problema, me parece que tem um limite de checkboxes do tipo "controles Active X" pois apareceu o problema abaixo após rodar corretamente por um tempo:

"Erro em tempo de execução '-2147319765 (8002802b)':
Erro de automação
A biblioteca de objetos é inválida ou contém referências a definições de objetos que não puderam ser localizadas"

Quando uso o checkbox "Controles de Formulário" o programa roda perfeitamente sem problemas.

Sabe a causa?

Desde já agradeço.

Bom dia!

A cousa poder ser variada, imagine que foi feito uma referencia que não suporta o tipo de dado.

Só tendo seu arquivo para testar realmente o que houve.

Mas não te serve ficar com o checkboxes do tipo "Controles de Formulário"?

Att

Alexandre, bom dia.

Estou desconfiado da quantidade de check pois a rotina é exatamente a mesma, funciona para 75% de um "for" e depois da o problema. Não encontrei outra explicação.

A alternativa é utilizar mesmo o checkbox de "controle de formulario", a única desvantagem é que no excel 2007, quando o caption é muito grande ele não divide em duas linhas.

No 2010 funciona bem.

Obrigado pela ajuda

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.