He Rob,

Dat doet het inderdaad. Super, Excel is best leuk als het werkt :-P.

gr,

Xentis

On 29 jan, 16:03, "Ron de Bruin" wrote:
Hi Xentis

moment you open the userform. I just can't get the macro to run
automatic after opening of the userform.Call your macro in this event in the Userform module

Private Sub UserForm_Initialize()
Call yourmacroname
End Sub

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm



"Xentis" wrote in oglegroups.com...
Dear all,

I have the following problem: I'd created a userform with a Image
field. Now I'd like to asign a picture to that image field at the
moment you open the userform. I just can't get the macro to run
automatic after opening of the userform.

The code:

-----------------------------------------------------------------------
---------------------

Public Sub ShowPicture()

Dim CurrentChart1, Fname1

Set CurrentChart1 = Sheets("Picture").ChartObjects(1).Chart
Fname1 = ThisWorkbook.Path & "\temp1.gif"
CurrentChart1.Export Filename:=Fname1, FilterName:="GIF"

UserForm1.Show

Application.run "CommandButton1_Click"

End Sub

-----------------------------------------------------------------------
----------------------

Private Sub CommandButton1_Click()

Path1 = "c:"
Fname1 = Path1 & "\temp1.gif"
Image1.Picture = LoadPicture(Fname1)

End Sub
-----------------------------------------------------------------------
------------------------.

When I build Commandbutton1 on the Userform and click it, the picture
will show in the image field. I just like it to do it automatically
when i open the Userform. Anyone a solution?- Tekst uit oorspronkelijk bericht niet weergeven -- Tekst uit oorspronkelijk bericht weergeven -