Baixe em PDF
Baixe em PDF
Você precisa adicionar uma imagem ou um logotipo a uma planilha do Excel para deixar o documento mais apresentável? Embora não haja nenhuma opção que redimensione o arquivo automaticamente dentro de uma célula, existem alguns truques simples e práticos para resolver a situação. É só ler o passo a passo deste artigo!
Passos
-
Abra seu projeto no Excel. Para isso, acesse Arquivo > Abrir dentro do programa ou clique com o botão direito no arquivo e selecione Abrir com > Excel .
-
Redimensione a imagem. Depois de selecionar a imagem, você vai ver a seção "Tamanho" dentro da aba "Formato" e "Ferramentas de Imagem".
- Mude a "altura" e a "largura" da imagem para redimensioná-la. Se você preferir, arraste os cantos da imagem até ficar satisfeito.
-
Fixe a imagem na célula. Na configuração padrão, a imagem que você inseriu vai "flutuar" em cima das células — e não mudar de tamanho de acordo com elas. Para evitar que isso aconteça, é preciso fixar o arquivo em uma célula específica.
- Clique na imagem e selecione Formatar Imagem . Em seguida, acesse a aba Tamanho e Propriedades (representada por um quadrado verde cercado por setas) e selecione Mover e dimensionar com células .
- Você pode ainda usar um código do VBA depois de inserir algumas imagens. Inclua os arquivos e pressione Alt + F11
para abrir a janela do VBA.
Na sequência, clique em Inserir > Módulo e cole o código abaixo. - Depois de colar o código, pressione F5 para executá-lo. Por fim, repita o processo até todas as imagens da planilha se fixarem às respectivas células.
Public Sub FitPic() On Error GoTo NOT_SHAPE Dim PicWtoHRatio As Single Dim CellWtoHRatio As Single With Selection PicWtoHRatio = .Width / .Height End With With Selection.TopLeftCell CellWtoHRatio = .Width / .RowHeight End With Select Case PicWtoHRatio / CellWtoHRatio Case Is > 1 With Selection .Width = .TopLeftCell.Width .Height = .Width / PicWtoHRatio End With Case Else With Selection .Height = .TopLeftCell.RowHeight .Width = .Height * PicWtoHRatio End With End Select With Selection .Top = .TopLeftCell.Top .Left = .TopLeftCell.Left End With Exit Sub NOT_SHAPE: MsgBox "Select a picture before running this macro." End Sub
Publicidade
Publicidade