I am using same code which you have post , if possible try to use same code
in xl2003 and see the diff.

Regards

Abdul Kader

"Dave Peterson" wrote:

It was clear to me before.

I tested it in xl2007 and it worked fine. I'm not sure why it's not working for
you.

If you changed the code, you may want to post what you actually used.



Akader wrote:

Dear Dave
this code in excel 2003 was working great like this.
in case the cell size is :
height 156 x Width 70 then when i run the code , the picture will resize
automatic in the cell with size of 156x70,

but now in 2007 the code is not changing the size automatically of picture
same as height and width like what excel 2003 was doing,

I hope now it's clear to you.

Regards

Abdul Kader

"Dave Peterson" wrote:

I tested this in xl2007 and the code put the picture entirely in the
activecell. Isn't that what you want? The size of the cell determines the size
of the picture??????

(Same code with all the declarations.)

Option Explicit
Sub GetPhotoone()

Dim rng As Range
Dim myPictName As String
Dim myPict As Picture

Set rng = ActiveCell
myPictName = Activecell.Value

Set myPict = ActiveSheet.Pictures.Insert(Filename:=myPictName)

myPict.Top = rng.Top
myPict.Left = rng.Left
myPict.Width = rng.Width
myPict.Height = rng.Height
myPict.Name = "Pict_" & Cells(1).Address(0, 0)

End Sub



Dave Peterson


--

Dave Peterson