Notifications
Clear all

código vba para copiar imagens

3 Posts
2 Usuários
0 Reactions
1,106 Visualizações
(@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

 
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
(@vitors)
Posts: 31
Eminent Member
Topic starter
 

Obrigado Doni, ficou resolvido esta parte checkbox.

Será que me consegues resolver a parte das imagens?

Vitors

 
Postado : 15/01/2014 12:15 pm