VBA to add picture to cell only works with landscape pictures

*Disclaimer I have posted this question on MyOnlineTrainingHub*

Using the below code to add pictures to excel when you click in a cell, it works as expected with landscape images but portrait ones are added to the right and above the target cell.

I have added the workbook and three pictures and a screen shot of where the macro places them

Clicking in L3 Landscape correct orientation is placed in the correct cell

Clicking in M3 Landscape Upside down is placed below and to the right

Clicking in N3 Portrait is placed up and to the right.



The Portrait one should be resized to fit in the cell vertically as well

the only difference between the pictures is the angle the phone was held at to take the pictures but when selecting them the grab handles are in different positions.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

I have tried adding this extra check but it doesnt do anything

Please Login or Register  to view this content.

Thats great Rory and I didnt realise Pictures.Insert was deprecated

John