Quer inserir o logotipo da sua empresa nas apostilas e nos arquivos de download?
Telefone: (27) 9275-5331
E-mail: paulosemblano@hotmail.com
Obs.: Leia antes o artigo Como habilitar Macros no Excel 2003 e 2007
Observe que as células da linha 1 na Plan2 estão do mesmo tamanho da figura, e todas devem ter o mesmo tamanho.
Para inserir o recurso Câmera no Excel 2003:
Clique em Ferramentas/Personalizar/Ferramentas
Arraste o recurso para os ícones da sua Barra de Ferramentas
Para usar o recurso Câmera:
Selecione a Plan1
Clique no ícone Câmera
Leve o mouse sem arrastar para qualquer célula da planilha
Arraste com o botão direto do mouse. Não precisa ser muito
Botão direito no objeto inserido e escolha Formatar imagem
Na aba Cores e linhas, em Cor e Cor, escolha Sem preenchimento e Sem linha
Aproveite que o objeto está selecionado e na Barra de Fórmulas, na caixa pequena onde está escrito imagem acompanhado de um número, mude para:
FIGURA
Tecle ENTER
Selecione a planilha Plan2
Observe que na linha 2 há um nome para cada imagem
É preciso também mudar o nome da célula na linha 1 para o mesmo nome digitado na linha 2 (é o nome da célula e NÃO da imagem dentro dela!)
Tecle ALT + F11 para ir para o VBA
Do lado esquerdo abra a pasta Microsoft Excel Objetos
Clique duas vezes na Plan1 e aparecerá uma caixa branca vazia do lado direito
Copie e cole o código abaixo para essa caixa:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("A1").Value > 0 And Range("A1").Value < 8 Then
NOME = Plan2.Cells(2, Plan1.Range("A1").Value).Value
ActiveSheet.Shapes("FIGURA").Select
Selection.Formula = NOME
Else
NOME = Plan2.Range("A2").Value
ActiveSheet.Shapes("FIGURA").Select
Selection.Formula = NOME
End If
Range("A2").Select
End If
End Sub
No código acima informa que, caso haja alguma mudança na célula A1 da Plan1, o código é acionado.
Observe que na 3ª linha coloquei menor do que 8 porque são exatamente 7 figuras. Caso aumente ou diminua a quantidade de figuras mude esse número.
Download do arquivo:
CÂMERA COM VBA
Para inserir o recurso Câmera no Excel 2003:
Clique em Ferramentas/Personalizar/Ferramentas
Arraste o recurso para os ícones da sua Barra de Ferramentas
Para usar o recurso Câmera:
Selecione a Plan1
Clique no ícone Câmera
Leve o mouse sem arrastar para qualquer célula da planilha
Arraste com o botão direto do mouse. Não precisa ser muito
Botão direito no objeto inserido e escolha Formatar imagem
Na aba Cores e linhas, em Cor e Cor, escolha Sem preenchimento e Sem linha
Aproveite que o objeto está selecionado e na Barra de Fórmulas, na caixa pequena onde está escrito imagem acompanhado de um número, mude para:
FIGURA
Tecle ENTER
Selecione a planilha Plan2
Observe que na linha 2 há um nome para cada imagem
É preciso também mudar o nome da célula na linha 1 para o mesmo nome digitado na linha 2 (é o nome da célula e NÃO da imagem dentro dela!)
Tecle ALT + F11 para ir para o VBA
Do lado esquerdo abra a pasta Microsoft Excel Objetos
Clique duas vezes na Plan1 e aparecerá uma caixa branca vazia do lado direito
Copie e cole o código abaixo para essa caixa:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("A1").Value > 0 And Range("A1").Value < 8 Then
NOME = Plan2.Cells(2, Plan1.Range("A1").Value).Value
ActiveSheet.Shapes("FIGURA").Select
Selection.Formula = NOME
Else
NOME = Plan2.Range("A2").Value
ActiveSheet.Shapes("FIGURA").Select
Selection.Formula = NOME
End If
Range("A2").Select
End If
End Sub
No código acima informa que, caso haja alguma mudança na célula A1 da Plan1, o código é acionado.
Observe que na 3ª linha coloquei menor do que 8 porque são exatamente 7 figuras. Caso aumente ou diminua a quantidade de figuras mude esse número.
Download do arquivo:
CÂMERA COM VBA
Nenhum comentário:
Postar um comentário
Excel Avançado - Assessoria e Aulas pela Internet - Venda apostilas - Planilhas personalizadas