AddPictures doesn't work correctly in Excel VBA

[eiloken]

Great day,
I create macro to insert picture to specific cell in each sheet in workbook, this macro will be call by parent macro which used to find specific cell in each sheet, but it seems problematic. In Sheet1 and some another sheets, it work corectly but some of them seems like set wrong "Top" property (please check attach screenshot), Can anyone help me with this problem? I preciate it.

Private Sub InsertStamp(ByVal dCll As Range, ByVal stampP As String)
    Dim xSize As Double
    Call CleanDestinationRange(dCll)
    With dCll.MergeArea
        If .Width > .Height Then 'looking for smaller property of cell and set it to picture size
            xSize = .Height - 3
        Else
            xSize = .Width - 3
        End If
        'insert pictures and align it to center of width and height
        .Worksheet.Shapes.AddPicture Filename:=stampP, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _
        Top:=.Top + (.Height - xSize) / 2, Left:=.Left + (.Width - xSize) / 2, Width:=xSize, Height:=xSize
    End With
End Sub

 

[jolivanes]

This might be a start.

Excel Tips: Why You Should Avoid Merging Cells

Use the Center Across Selection feature to easily merge cells in Excel.

edu.gcfglobal.org

Stop! Do Not Merge Cells in Excel - Heres why with fixes - The Excel Club

Find out why you should not merge cells in excel, the problems merged cells can cause and how you can overcome this problem.

theexcelclub.com

Don't merge cells in Excel // Best practices // PerfectXL Academy

It's very tempting to merge cells in Excel, but try to resist the temptation because merging cells can be dangerous!

www.perfectxl.com

Tom’s Tutorials For Excel: Using Center Across Selection Instead of Merging Cells – Tom Urtis

www.atlaspm.com

 

[eiloken]

This might be a start.

Excel Tips: Why You Should Avoid Merging Cells

Use the Center Across Selection feature to easily merge cells in Excel.

edu.gcfglobal.org

Stop! Do Not Merge Cells in Excel - Heres why with fixes - The Excel Club

Find out why you should not merge cells in excel, the problems merged cells can cause and how you can overcome this problem.

theexcelclub.com

Don't merge cells in Excel // Best practices // PerfectXL Academy

It's very tempting to merge cells in Excel, but try to resist the temptation because merging cells can be dangerous!

www.perfectxl.com

Tom’s Tutorials For Excel: Using Center Across Selection Instead of Merging Cells – Tom Urtis

www.atlaspm.com

yeah, i know that merge cell is inconvenience in vba but this is my company form with so many documents like that, i can not just reform all of them. beside i don't think the code has problem with merge area, it work well and like i said, some worksheet work correctly but some is not, and "Width" property of range is correct and "Top" is correct too (i tries "debug.print .Top + (.Height - xSize) / 2" to get that) but something wrong when macro move pictures and it can not move to right "Top".

 

[jolivanes]

Maybe just explain what needs to happen. Be concise about it.
Oh, please don't quote me. I normally know what I wrote/suggested. We don't really need all the extra clutter.