Como inserir imagens GIF animadas no Excel 2007/2010/2013/2016

Se você também estiver entre os que contam o aplicativo Excel como chato um então você está errado. Não é de todo um aplicativo chato ..!

É isso mesmo, pois você pode transformar sua planilha chata do Excel em uma atraente planilha. Para isso, você pode fazer muitas coisas na sua pasta de trabalho do Excel, como inserir imagens gif, adicionar animação às suas pastas de trabalho, colocar gráficos animados no Excel, inserir gráficos animados na planilha, usar rótulos de dados dinâmicos para criar gráficos interativos do Excel etc.

No tópico de hoje, aprenderemos como inserir gif animado no Excel.

Então vamos começar…!

Podemos adicionar gifs ao Excel?

É uma pergunta muito comum por muitos usuários do Excel se eles podem adicionar imagens GIF ao Excel ou não. Todo mundo sabe disso, é muito fácil inserir imagens no Excel. Como a opção de inserir imagens no Excel é muito fácil de obter, ou seja, inserir —> imagem.

No entanto, quando se trata de inserir imagens gif animadas no Excel, esse método não funciona. Sem dúvida, a imagem gif também será inserida em sua planilha com esta etapa, mas sem nenhum efeito de animação.

A animação da imagem gif só funcionará quando a imagem for inserida em um controle. Isso pode ser feito usando a Caixa de ferramentas de controle, o modo Design e o Microsoft Web Browser.

O código VBA é parte essencial da adição de gif animado no Excel. Após concluir o procedimento, a página ativa da planilha do Excel precisa ser alterada. Verifique também se a animação está funcionando corretamente ou não. Para inserir gif animado em outras planilhas do Excel, você pode usar o mesmo procedimento VBA.

Como inserir GIF animado no Excel

Nesta seção, discutiremos duas maneiras diferentes de inserir GIF animado no Excel. Na primeira maneira, você aprenderá a inserir uma imagem gif na planilha do Excel. Considerando que, no segundo método, você saberá como inserir imagens GIF em uma célula específica ou em uma determinada planilha do Excel. Então, vamos discutir sobre cada método, um por um.

Método 1: Inserir arquivos GIF na planilha do Excel

Para incorporar um arquivo GIF animado na planilha do Excel. É importante saber o caminho completo e o nome da imagem GIF. Você também precisará colocar um trecho de código VB em sua planilha do Excel. Vamos saber como todas as coisas devem ser feitas.

Passo 1

Procure a pasta que possui a pasta de imagem GIF animada que deseja inserir. Depois, escreva o caminho completo da pasta GIF e o nome do seu arquivo.

Suponha que, se o arquivo estiver presente na subpasta da unidade C: chamada Imagens. Ele contém um arquivo de imagem bear.gif que você deseja inserir na pasta de trabalho do Excel. Em seguida, o nome completo do caminho será c: \ pictures \ bear.gif.

Passo 2

Depois, abra a planilha do MS Excel na qual deseja adicionar seu GIF animado.

Passo 3

Toque no menu “Exibir” na faixa de opções do menu Excel. Em seguida, escolha a opção “Barras de ferramentas” => e toque em “Caixa de ferramentas de controle”. Opção.

Passo 4

Aperte o botão superior presente em “Control Toolbox”, isso ativará o “Design Mode”. No “Design Mode”, você pode desenhar uma estrutura de item na pasta de trabalho do Excel que aceitará seu objeto como GIF animado.

Passo 5

Toque no botão inferior presente em “Control Toolbox”. Agora, no menu suspenso, escolha o “Microsoft Web Browser”. Isso ativará o “Microsoft Web Browser” para que você possa ver seus GIFs animados.

Passo 6

Clique com o botão esquerdo do mouse na planilha onde deseja incorporar sua imagem GIF animada. Desenhe uma caixa de tamanho grande que possa conter facilmente sua imagem GIF animada.

Passo 7

Toque na opção “Design Mode” novamente para desativar o modo de design. Depois, feche a barra de ferramentas aberta “Control Toolbox”.

Passo 8

No teclado, mantendo pressionada a tecla “Alt”, pressione a tecla “F11”. Isso abrirá a janela do Microsoft Visual Basic no seu aplicativo Excel.

Passo 9

Faça um clique duplo na planilha na qual deseja adicionar a imagem GIF animada. Agora, na lista Projeto, presente no lado superior esquerdo da janela do VB. Ele abrirá a janela de código do visual basic.

Passo 10

na janela de código aberto, basta copiar e colar este código:

Private Sub Worksheet_Activate()

End Sub

Atribua o nome do arquivo e o caminho apropriados, presentes nas aspas do arquivo GIF.

Passo 11

Toque na planilha diferente do Excel e clique novamente na planilha em que você adicionou sua imagem GIF. Seu GIF animado adicionado deve ser exibido na caixa de objeto desenhado.

 Se estiver aparecendo assim, tudo pronto…! Você pode assistir a sua animação de imagem gif.

Você pode assistir a este vídeo para entender claramente como inserir uma imagem gif animada no Excel.

Para adicionar imagens gif animadas de qualquer endereço da Web

Bem, você pode adicionar imagem gif animada no Excel de qualquer endereço da web também. Para realizar esta tarefa, tente o seguinte código:

Private Sub Worksheet_Activate()

WebBrowser1.Navigate “about:<html><body scroll=’no’><img src=’http://www.animatedgif.net/animals/birds/birdtoon_e0.gif’> </img></body></html>”

End Sub

Método 2: Inserir imagens GIF na célula específica ou no intervalo determinado da planilha do Excel

Se você deseja inserir uma imagem gif em uma célula específica do Excel, é muito importante que você saiba disso. Você não pode inserir uma imagem na célula do Excel, mas tem a opção de redimensioná-la. Então, isso vai se encaixar perfeitamente nessa célula em particular.

Se você fizer isso manualmente, consumirá muito mais tempo. Então, faremos isso através da macro VBA. Vamos saber como inserir imagens GIF no Excel usando o VBA.

Abaixo, discutiremos sobre o código VBA do Excel para inserir imagens de qualquer pasta em qualquer célula específica ou em um determinado intervalo. No teclado, pressione Alt + F11, depois insira um módulo e copie esse código.

Não precisa se preocupar com a codificação, pois explicaremos tudo. Assim, qualquer pessoa pode fazer modificações conforme suas necessidades.

Inserir imagens GIF no Excel com código VBA

Sub TestInsertPictureInRange()InsertPictureInRange “C:\FolderName\PictureFileName.gif”, _Range(“B5:D10”)

End Sub
Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)

‘ inserts a picture and resizes it to fit the TargetCells range

Dim p As Object, t As Double, l As Double, w As Double, h As Double

If TypeName(ActiveSheet) <> “Worksheet” Then Exit Sub

If Dir(PictureFileName) = “” Then Exit Sub

‘ import picture

Set p = ActiveSheet.Pictures.Insert(PictureFileName)

‘ determine positions

With TargetCells

t = .Top

l = .Left

w = .Offset(0, .Columns.Count).Left – .Left

h = .Offset(.Rows.Count, 0).Top – .Top

End With

‘ position picture

With p

.Top = t

.Left = l

.Width = w

.Height = h

End With

Set p = Nothing

End Sub

Explicação da codificação VBA acima, escrita para inserir imagens gif em uma célula específica ou em um determinado intervalo:

Parte 1:

Sub TestInsertPictureInRange()InsertPictureInRange “C:\FolderName\PictureFileName.gif”, _Range(“B5:D10”)

End Sub

A sub-rotina acima mencionada chamará a sub-rotina principal, ou seja, InsertPictureInRange, que contém apenas 2 argumentos. No primeiro argumento, o endereço do arquivo de imagem com o nome está presente. Considerando que, no segundo argumento, o intervalo é definido onde você deseja inserir a imagem no Excel.

Parte 2:

Sub InsertPictureInRange (PictureFileName As String, TargetCells As Range) ‘insere uma imagem e a redimensiona para caber no TargetCells rangeDim p como objeto, t como duplo, l como duplo, w como duplo, h como duplo

If TypeName(ActiveSheet) <> “Worksheet” Then Exit Sub

If Dir(PictureFileName) = “” Then Exit Sub

‘ import picture

Set p = ActiveSheet.Pictures.Insert(PictureFileName)

‘ determine positions

With TargetCells

t = .Top

l = .Left

w = .Offset(0, .Columns.Count).Left – .Left

h = .Offset(.Rows.Count, 0).Top – .Top

End With

‘ position picture

With p

.Top = t

.Left = l

.Width = w

.Height = h

End With

Set p = Nothing

End Sub

É a principal sub-rotina que adiciona e redimensiona a imagem para facilitar o ajuste na faixa atribuída.

Vamos mergulhar nisso.

Dim p As Object, t As Double, l As Double, w As Double, h As Double

Nesta linha, a declaração da variável é feita. Aqui p é uma variável de objeto e sua imagem será mantida apenas por essa variável.

If TypeName(ActiveSheet) <> “Worksheet” Then Exit Sub

O código acima verificará se sua planilha do Actives é uma planilha ou outra coisa. Caso contrário, ele deixará o código instantaneamente. Depois disso, nada vai acontecer

If Dir(PictureFileName) = “” Then Exit Sub

Verifique se você forneceu o endereço para inserção de imagem na célula da planilha do Excel. Se você não tiver dado isso, ele sairá imediatamente e nada acontecerá.

Set p = ActiveSheet.Pictures.Insert(PictureFileName)

É uma linha muito importante da codificação do Excel VBA. Basicamente, estamos usando a função de inserção, ou seja, ActiveSheet.Pictures. Mantenha também o valor no Objeto p que declaramos ao iniciar.

Ao usar a variável de objeto p, você pode facilmente fazer ajustes no comprimento e largura da imagem.

With TargetCellst = .Topl = .Leftw = .Offset(0, .Columns.Count).Left – .Lefth = .Offset(.Rows.Count, 0).Top – .TopEnd With

Nesse segmento do intervalo fornecido, você pode facilmente obter Comprimento, Superior, Esquerdo, Largura etc.

With p.Top = t.Left = l.Width = wHeight = hEnd With

Esta parte é basicamente para fazer ajustes na imagem de um determinado intervalo.

Todas as coisas estão feitas agora …! Por fim, definiremos p variável livre apenas configurando o valor de p como nada.

Set p = Nothing

Essa linha liberará espaço na memória.

O código acima funcionará com êxito no seguinte Excel 2007/2010/2013/2016.

Por exemplo: suponha que você queira adicionar uma imagem no intervalo A1: C10. Para isso, modifique o código como este

Sub TestInsertPictureInRange()InsertPictureInRange “C:\Users\Manish Singh\Downloads\biker.jpg“, _Range(“A1:C10“)

End Sub

Aqui está o resultado:

Embrulhar:

Você deve ter conhecimento suficiente sobre como inserir uma imagem animada gif no Excel. Portanto, tente sem medo os métodos acima para inserir imagens gif no Excel. Portanto, brinque com o código VBA do Excel e tente inserir diferentes intervalos, formatos e veja o resultado.

Se você estiver com alguma dúvida ou com algum problema, pergunte na nossa seção de comentários.

[cta-en-729]