Imagem inserida via macro deslocada
Enviado: 15 Jan 2019 às 08:14
Olá,
Tenho um arquivo que sempre funcionou normalmente, mas algo aconteceu que (sem eu mexer no arquivo) deixou de funcionar. Notei o mesmo para outros 2 arquivos que utilizam o mesmo código de macro e sempre funcionaram.
Quando uma imagem é inserida via macro ela é posicionada sempre mais a direita do que devia, tentei os seguinte código.
Tentei:
Me.Pictures.Insert(FullImagePath).Select
.Name = "Photo"
.ShapeRange.ZOrder msoSendToBack
.Top = 0
.Left = ActiveCell.Left
.Height = 100
End With
Tentei:
Me.Pictures.Insert(FullImagePath).Select
.Name = "Photo"
.ShapeRange.ZOrder msoSendToBack
.Top = 0
.Left = 0
.Height = 100
End With
Tentei:
Me.Pictures.Insert(FullImagePath).Select
.Name = "Photo"
.ShapeRange.ZOrder msoSendToBack
.Top = 0
.Left = 0
.IncrementLeft -300
.Height = 100
End With
Todas as opção não funcionaram, a imagem sempre fica bem longe da coluna A.
Me parece um erro ou configuração do Excel em si, e não das planilhas, como se ele estivesse considerando como início da área de planilhas mais pra direita.
Agradeço desde já.
Tenho um arquivo que sempre funcionou normalmente, mas algo aconteceu que (sem eu mexer no arquivo) deixou de funcionar. Notei o mesmo para outros 2 arquivos que utilizam o mesmo código de macro e sempre funcionaram.
Quando uma imagem é inserida via macro ela é posicionada sempre mais a direita do que devia, tentei os seguinte código.
Tentei:
Me.Pictures.Insert(FullImagePath).Select
.Name = "Photo"
.ShapeRange.ZOrder msoSendToBack
.Top = 0
.Left = ActiveCell.Left
.Height = 100
End With
Tentei:
Me.Pictures.Insert(FullImagePath).Select
.Name = "Photo"
.ShapeRange.ZOrder msoSendToBack
.Top = 0
.Left = 0
.Height = 100
End With
Tentei:
Me.Pictures.Insert(FullImagePath).Select
.Name = "Photo"
.ShapeRange.ZOrder msoSendToBack
.Top = 0
.Left = 0
.IncrementLeft -300
.Height = 100
End With
Todas as opção não funcionaram, a imagem sempre fica bem longe da coluna A.
Me parece um erro ou configuração do Excel em si, e não das planilhas, como se ele estivesse considerando como início da área de planilhas mais pra direita.
Agradeço desde já.