Excel Auxílio para Criação de uma planilha otimizada e veloz

[Lucas Teixeira de Oliveira]

Boa tarde amigos, 

 

Comecei a trabalhar em uma empresa, e me tornei responsável por montar planilhas de relatórios e esse relatórios constituem basicamente de eu organizar uma sequência de imagens, e é ai que começa a minha angustia. 

Esse relatório era feito com a pessoa anterior ajustando manualmente cada imagem, e o meu desejo para otimizar o tempo seria de conseguir fazer com que as imagens que viessem a ser inseridas já viessem com um tamanho pré-estabelecido ou que houvesse alguma maneira de a imagem se auto-redimensionar para o tamanho de determinada célula.

 

Espero ter conseguida transparecer aquilo em que necessito de ajuda xD

[CasaDoHardware]

Experimente este link

 

https://www.guiadoexcel.com.br/alinhar-e-ajustar-imagens-no-excel-vba/

[Lucas Teixeira de Oliveira]

Não consegui aquilo que queria com esses módulos do vba.
Tambem n consegui achar na internet nada do tipo de deixar a imagem do tamanho da celula q eu queira q ela seja inserida.

 

[CasaDoHardware]

Experimente este entao:

 

Sub InsereImagem()
Dim MinhaImagem As String
Dim Imagem As Picture
Dim Confirma As String
Dim W As Worksheet

Set W = ActiveSheet

Confirma = MsgBox("Deseja Adicionar uma Imagem?", vbQuestion + vbYesNo, "Inserindo Imagens!!!!")
If Confirma = vbNo Then Exit Sub

MinhaImagem = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Selecione a Imagem a Ser Importada!!!")

If MinhaImagem <> "" Then
Set Imagem = W.Pictures.Insert(MinhaImagem)

With Imagem
'Ajusta a posição da imagem na celula
.Top = ActiveCell.Top + 0.5
.Left = ActiveCell.Left + 1
.ShapeRange.LockAspectRatio = msoFalse

'Define o tamanho da imagem
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Placement = xlFreeFloating
End With
End If
End Sub