Foto Slide Show...

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