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

S

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
 
S

SpeeD

Thanks a lot Rick

Ill try that.

SpeeD

Rick Rothstein said:
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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top