|
Foto Slide Show...
Has anyone done a Macro that displays diferant pictures of fotos?
|
Foto Slide Show...
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 |
Foto Slide Show...
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 |
Foto Slide Show...
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 |
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.dicks-blog.com/archives/2...owser-control/ -- Dick Kusleika Excel MVP Daily Dose of Excel www.dicks-blog.com |
Foto Slide Show...
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 |
Foto Slide Show...
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 |
Foto Slide Show...
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 |
Foto Slide Show...
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 |
| All times are GMT +1. The time now is 06:49 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com