View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Troubled User Troubled User is offline
external usenet poster
 
Posts: 85
Default Loading Pictures in Image box

Thanks a bunch. Works perfectly!!!!!! You made my day!

"Tom Ogilvy" wrote:

Me was particular to the userform which I was using to illustrate that this
is the correct construct.

in your case, I assume Image1 is on the worksheet worksheets("Coverpage")

so replace
'Image1.Picture = LoadPicture(PictureFileName1)

with

Worksheets("CoverPage").Image1.Picture = _
LoadPicture(PictureFileName1)


or qualify it with a reference to the sheet on which it is located.

--
Regards,
Tom Ogilvy



"Troubled User" wrote in message
...
Tom, Here is the entire code. I got invalid use of the Me keyword using

your
suggestion, so based on what was written by Leith I tried simply
'Image1.Picture = LoadPicture(PictureFileName1) and got a Object required
error.

Any help is appreciated. Thank you.

WB

Sub NewInserttoImageBox()

Dim PictureFileName1 As Variant
Set PictureFileName1 = Worksheets("PropertyList").Range("J3")

Application.ScreenUpdating = False

Worksheets("CoverPage").Select

'Me.Image1.Picture = LoadPicture(PictureFileName1)
'This returned Invalid Use of Me Keyword

'Image1.Picture = LoadPicture(PictureFileName1)
'Returns Runtime Error 424 - Object Required

Worksheets("Input").Select

Application.ScreenUpdating = True

"Tom Ogilvy" wrote:

Private Sub UserForm_Initialize()
Me.Image1.Picture = LoadPicture("c:\images.jpg")

End Sub

worked fine for me. Using a variable to hold "C:\Imgages.jpg" would

work as
well.

--
Regards,
Tom Ogilvy


"Troubled User" wrote in

message
...
I have named a file path and file location in VB to locate a

particular
photo. As the user selects different items from a droplist the file

path
and
name change. In the change event on that droplist I need to know how

to
call
the load event for the Image object. So far I have tried:

Image1.Picture = LoadPicture(PictureFileName1) - Where PictureFileName

is
my
path and file name as well as hard coding to

Image1.Picture = LoadPicture("e:\monthlyreport\Photo1.bmp")

I don't understand the correct syntax to change the picture file.

Please help. Thank you!