código vba para copiar imagens

2024 - VBA & Macros

Post Recente por vitors 11 anos atrás

3 Posts

2 Usuários

0 Reactions

1,098 Visualizações

RSS

vitors

(@vitors)

Posts: 31

Eminent Member

Topic starter

Boa tarde!

Estou a criar várias planilhas em excel e tenho-me deparado com algumas dificuldades ao nível do código vba.

Tenho 3 planilhas e em cada uma delas tenho uma imagem (activex). Pretendo que, ao inserir uma imagem numa das planilhas, ela copie a mesma imagem para as restantes planilhas (imagem activex).

Tenho outra dívida que não tem nada com vba. Tenho uma planilha (Avaliação Cur.-Aluno1-1ºP) com um registo de avaliação feita através de vistos - caixa de texto (controlador de formulário). Pretendo aumentar esta caixa mas não consigo para que se torne proporcional ao tamanho da célula. Como posso fazer isso?

Envio em anexo o ficheiro para dar uma vista de olhos.

Obrigado,
Vítor

avaliação1.xlsm

Postado : 15/01/2014 8:24 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Amigo, Boa tarde!

Voce não pode redimensionar Caixas de seleção (CheckBox), nem mesmo com VBA, o que vc pode fazer é um simulador de CheckBox.

1º Crie um Rotulo (Label), com as ferramentas do Controle Activex;
2º Clique em propriedades do Rotulo;
3º Clique em tamanho da fonte, coloque a fonte Wingdings, o tamanho da fonte vc define a que melhor se ajustar;
4º Coloque o código abaixo no evento click da planilha:

Private Sub Label1_Click()
    If Label1.Caption = Chr(254) Then
        Label1.Caption = Chr(168)
    Else
        Label1.Caption = Chr(254)
    End If
End Sub

Note que o código só funciona para um Rotulo, para mais teria que ser modificado.
Segue planilha como demonstração.

Doni

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/01/2014 12:02 pm