Has anyone done a Macro that displays diferant pictures of fotos?

How about using a different program?????

I really like:
http://www.irfanview.com/




MESTRELLA29 wrote:

Has anyone done a Macro that displays diferant pictures of fotos?

--

Dave Peterson

IrfanView rocks!

--

Vasant


"Dave Peterson" wrote in message
...
How about using a different program?????

I really like:
http://www.irfanview.com/




MESTRELLA29 wrote:

Has anyone done a Macro that displays diferant pictures of fotos?

--

Dave Peterson

You kids with your lingo!

Vasant Nanavati wrote:

IrfanView rocks!

--

Vasant

"Dave Peterson" wrote in message
...
How about using a different program?????

I really like:
http://www.irfanview.com/




MESTRELLA29 wrote:

Has anyone done a Macro that displays diferant pictures of fotos?

--

Dave Peterson

--

Dave Peterson

MESTRELLA29 wrote:
Has anyone done a Macro that displays diferant pictures of fotos?

You can use a userform with a WebBrowser control on it. Then use code like
this

Private Sub UserForm_Click()

Dim pthPictures As String
Dim fleCurrPic As String

pthPictures = "C:\Documents and Settings\All Users\Documents\My
Pictures\Sample Pictures\"

fleCurrPic = Dir(pthPictures & "*.jpg")

Do While Len(fleCurrPic) 0
Me.WebBrowser1.Navigate pthPictures & fleCurrPic
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("00:00:02")
fleCurrPic = Dir
Loop

MsgBox "Done"

End Sub

See here for more on the WebBrowser control
http://www.dicks-blog.com/archives/2...owser-control/

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

how is that, how do you create a userfrom with a webbrowser control


"Dick Kusleika" wrote:

MESTRELLA29 wrote:
Has anyone done a Macro that displays diferant pictures of fotos?

You can use a userform with a WebBrowser control on it. Then use code like
this

Private Sub UserForm_Click()

Dim pthPictures As String
Dim fleCurrPic As String

pthPictures = "C:\Documents and Settings\All Users\Documents\My
Pictures\Sample Pictures\"

fleCurrPic = Dir(pthPictures & "*.jpg")

Do While Len(fleCurrPic) 0
Me.WebBrowser1.Navigate pthPictures & fleCurrPic
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("00:00:02")
fleCurrPic = Dir
Loop

MsgBox "Done"

End Sub

See here for more on the WebBrowser control
http://www.dicks-blog.com/archives/2...owser-control/

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

To get to the VBE, use Alt+F11.

Select your project and choose Userform from the Insert menu.

Right click the control toolbox and choose Additional Controls. Add the
Microsoft Web Browser by check its box.

Now you can add this control to the form like any other control.

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

MESTRELLA29 wrote:
how is that, how do you create a userfrom with a webbrowser control


"Dick Kusleika" wrote:

MESTRELLA29 wrote:
Has anyone done a Macro that displays diferant pictures of fotos?

You can use a userform with a WebBrowser control on it. Then use
code like this

Private Sub UserForm_Click()

Dim pthPictures As String
Dim fleCurrPic As String

pthPictures = "C:\Documents and Settings\All Users\Documents\My
Pictures\Sample Pictures\"

fleCurrPic = Dir(pthPictures & "*.jpg")

Do While Len(fleCurrPic) 0
Me.WebBrowser1.Navigate pthPictures & fleCurrPic
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("00:00:02")
fleCurrPic = Dir
Loop

MsgBox "Done"

End Sub

See here for more on the WebBrowser control
http://www.dicks-blog.com/archives/2...owser-control/

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

Excelent !!!!

That is IT,,, another question, is there a way to make the pictures tu fit
the form?

"Dick Kusleika" wrote:

To get to the VBE, use Alt+F11.

Select your project and choose Userform from the Insert menu.

Right click the control toolbox and choose Additional Controls. Add the
Microsoft Web Browser by check its box.

Now you can add this control to the form like any other control.

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

MESTRELLA29 wrote:
how is that, how do you create a userfrom with a webbrowser control


"Dick Kusleika" wrote:

MESTRELLA29 wrote:
Has anyone done a Macro that displays diferant pictures of fotos?

You can use a userform with a WebBrowser control on it. Then use
code like this

Private Sub UserForm_Click()

Dim pthPictures As String
Dim fleCurrPic As String

pthPictures = "C:\Documents and Settings\All Users\Documents\My
Pictures\Sample Pictures\"

fleCurrPic = Dir(pthPictures & "*.jpg")

Do While Len(fleCurrPic) 0
Me.WebBrowser1.Navigate pthPictures & fleCurrPic
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("00:00:02")
fleCurrPic = Dir
Loop

MsgBox "Done"

End Sub

See here for more on the WebBrowser control
http://www.dicks-blog.com/archives/2...owser-control/

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

If there is, I don't know it. I think you'll have size all your pictures at
design time.

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

MESTRELLA29 wrote:
Excelent !!!!

That is IT,,, another question, is there a way to make the pictures
tu fit the form?

"Dick Kusleika" wrote:

To get to the VBE, use Alt+F11.

Select your project and choose Userform from the Insert menu.

Right click the control toolbox and choose Additional Controls. Add
the Microsoft Web Browser by check its box.

Now you can add this control to the form like any other control.

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com

MESTRELLA29 wrote:
how is that, how do you create a userfrom with a webbrowser control


"Dick Kusleika" wrote:

MESTRELLA29 wrote:
Has anyone done a Macro that displays diferant pictures of fotos?

You can use a userform with a WebBrowser control on it. Then use
code like this

Private Sub UserForm_Click()

Dim pthPictures As String
Dim fleCurrPic As String

pthPictures = "C:\Documents and Settings\All Users\Documents\My
Pictures\Sample Pictures\"

fleCurrPic = Dir(pthPictures & "*.jpg")

Do While Len(fleCurrPic) 0
Me.WebBrowser1.Navigate pthPictures & fleCurrPic
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("00:00:02")
fleCurrPic = Dir
Loop

MsgBox "Done"

End Sub

See here for more on the WebBrowser control
http://www.dicks-blog.com/archives/2...owser-control/

--
Dick Kusleika
Excel MVP
Daily Dose of Excel
www.dicks-blog.com