Como inserir imagens no Excel usando uma macro
Este FAQ irá guiá-lo através dos passos para aplicar esta macro à sua folha de cálculo para que as imagens apareçam.
Use uma macro para inserir imagens no Excel
Para usar uma macro para inserir imagens, você deve começar com as seguintes suposições: os nomes das figuras são encontrados na coluna B a partir de B2; você deseja colar cada foto em um local diferente; onde colar a imagem identificada na col B é encontrada em col C a partir de C2.Agora, insira o seguinte código:
Imagem secundária ()Dim picname As String
Dim pasteAt As Integer
Dim thisThisRow As Long
lThisRow = 2
Do While (Cells (lThisRow, 2) "")
'Range ("A6"). Selecione' Isto é onde a imagem será inserida
pasteAt = Células (lThisRow, 3)
Células (pasteAt, 1) .Selecione 'Aqui é onde a imagem será inserida
'Dim picname As String
'picname = Range ("B6")' Esse é o nome da foto
picname = Cells (lThisRow, 2) 'Esse é o nome da foto
ActiveSheet.Pictures.Insert ("C: \ Usuários \ vbayat \ Meus Documentos \ link de vídeo \ re-market \" & picname & ".jpg"). Selecione "Caminho para onde as imagens são armazenadas
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Isso redimensiona a imagem
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Com seleção
'.Left = Range ("A6"). Esquerda
'.Top = Range ("A6"). Topo
.Left = Células (pasteAt, 1).
.Top = Células (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Fim com
lThisRow = lThisRow + 1
Loop
Faixa ("A10"). Selecione
Application.ScreenUpdating = True
Saída Sub
ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Mostra a caixa de mensagem se a imagem não for encontrada
Saída Sub
Faixa ("B20"). Selecione
End Sub
Imagem: © Microsoft.