Align picture to the right side of a cell...

[SpeeD]

Hi to all...

I need to align a picture to the right side of a cell, but i cant make this
work.. i can do it to the left...

Dim myPict As Picture
With ActiveSheet.Range("B5")
Set myPict = .Parent.Pictures.Insert("C:\jorge\jorge.jpg")
myPict.Top = .Top
myPict.Left = .Left
myPict.Placement = xlMoveAndSize

This is an insert code, but you get the picture...

Can anyone help me?

Thanks in advance
SpeeD

 

[SpeeD]

Thanks a lot Rick

Ill try that.

SpeeD

Try it this way...

Dim myPict As Picture
With ActiveSheet.Range("B5")
Set myPict = .Parent.Pictures.Insert("C:\jorge\jorge.jpg")
myPict.Top = .Top + .Height - myPict.Height
myPict.Left = .Left + .Width - myPict.Width
myPict.Placement = xlMoveAndSize
End With

I note (because you are using a cell near the edge of the worksheet) that if
aligning the picture to the cell would make part of the picture go out of
the worksheet, the picture will be moved so that all of it is in the
worksheet.