Pessoal, achei na net o cod abaixo para inserir imagens:
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
End With
' position picture
With p
.Top = t
.Left = l
.Width = 300
.Height = 300
End With
Set p = Nothing
End Sub
o problema é que ao inserir uma imagem com resolução 300 x 50, os valores atribuidos nas propriedades .Width e .Height não redimenciona a imagem, qual propriedade que eu ainda tenho que adicionar?
Pergunta
D_BOB
Pessoal, achei na net o cod abaixo para inserir imagens:
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
End With
' position picture
With p
.Top = t
.Left = l
.Width = 300
.Height = 300
End With
Set p = Nothing
End Sub
o problema é que ao inserir uma imagem com resolução 300 x 50, os valores atribuidos nas propriedades .Width e .Height não redimenciona a imagem, qual propriedade que eu ainda tenho que adicionar?
desde já obrigado.
Editado por D_BOBLink para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.