Foto Slide Show...

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" <ec35720@netscapeXSPAM.com> wrote in message
news:429D08E9.2079D8BB@netscapeXSPAM.com...
> 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" <ec35720@netscapeXSPAM.com> wrote in message
> news:429D08E9.2079D8BB@netscapeXSPAM.com...
> > 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.*****-blog.com/archives/2...owser-control/

--
**** Kusleika
Excel MVP
Daily Dose of Excel
www.*****-blog.com

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


"**** 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.*****-blog.com/archives/2...owser-control/
>
> --
> **** Kusleika
> Excel MVP
> Daily Dose of Excel
> www.*****-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.

--
**** Kusleika
Excel MVP
Daily Dose of Excel
www.*****-blog.com

MESTRELLA29 wrote:
> how is that, how do you create a userfrom with a webbrowser control
>
>
> "**** 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.*****-blog.com/archives/2...owser-control/
>>
>> --
>> **** Kusleika
>> Excel MVP
>> Daily Dose of Excel
>> www.*****-blog.com

Excelent !!!!

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

"**** 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.
>
> --
> **** Kusleika
> Excel MVP
> Daily Dose of Excel
> www.*****-blog.com
>
> MESTRELLA29 wrote:
> > how is that, how do you create a userfrom with a webbrowser control
> >
> >
> > "**** 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.*****-blog.com/archives/2...owser-control/
> >>
> >> --
> >> **** Kusleika
> >> Excel MVP
> >> Daily Dose of Excel
> >> www.*****-blog.com
>
>
>

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

--
**** Kusleika
Excel MVP
Daily Dose of Excel
www.*****-blog.com

MESTRELLA29 wrote:
> Excelent !!!!
>
> That is IT,,, another question, is there a way to make the pictures
> tu fit the form?
>
> "**** 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.
>>
>> --
>> **** Kusleika
>> Excel MVP
>> Daily Dose of Excel
>> www.*****-blog.com
>>
>> MESTRELLA29 wrote:
>>> how is that, how do you create a userfrom with a webbrowser control
>>>
>>>
>>> "**** 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.*****-blog.com/archives/2...owser-control/
>>>>
>>>> --
>>>> **** Kusleika
>>>> Excel MVP
>>>> Daily Dose of Excel
>>>> www.*****-blog.com