Função para checar checkbox do tipo NÃO ACTIVEX no excel. [controles de formulário]

Public Sub marcaopt()
    Dim s As Excel.Worksheet
 
    Set s = ActiveWorkbook.Sheets(1)
 
    Dim sh As Shape
    
    For Each sh In s.Shapes
        If sh.Type = msoFormControl Then
            If sh.FormControlType = xlCheckBox Then
                If sh.Name = “Check Box 7” Then
                    sh.ControlFormat.Value = -4146 ‘uncheck.  1 = check
                End If
            End If
        End If
    Next sh
 
End Sub
Esta entrada foi publicada em Excel, Visual Basic 6.0 e VBA com as etiquetas , , . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s