Bom dia! Estou utilizando o código abaixo, mas ele não coloca a imagem corretamente na célula mesclada e eu gostaria que a imagem ficasse do tamanho da célula mesclada
Public Sub Carregarfoto1()
Dim photoNameAndPath As Variant
Dim photo As Picture
photoNameAndPath = Application.GetOpenFilename(Title:="")
If photoNameAndPath = False Then Exit Sub
Set photo = ActiveSheet.Pictures.Insert(photoNameAndPath)
With photo
.Left = ThisWorkbook.Worksheets("Template").Range("C205").Left
.Top = ThisWorkbook.Worksheets("Template").Range("C205").Top
.Width = ThisWorkbook.Worksheets("Template").Range("C205").Width
.Height = ThisWorkbook.Worksheets("Template").Range("C205").Height
.Placement = 1
End With
End Sub
Range("C205").Left
, assim comoTop
,Width
eHeight
, não retornam as medidas da área inteira, e sim somente da célula C205, como se não estivesse mesclada. Para obter as medidas da célula mesclada por inteiro, você precisa pegar:ThisWorkbook.Worksheets("Template").Range("C205").MergeArea.Left
(e também top, width e height)..Top = ThisWorkbook.Worksheets("Template").Range("C205").Top + 10
. Aí em vez de +10, Você testa um número útil pra você.