Vba File Copy Progress Bar

I have a macro that I built for Power Point that saves each slide as a jpeg file in sequence. As shown below:Sub SlideIndexDim osld As SlideOn Error Resume NextMkDir Environ('USERPROFILE') & 'Desktopjpgs'For Each osld In ActivePresentation.Slidesosld.Export Environ('USERPROFILE') & ' & Format(osld.SlideIndex, '000' & '.jpg'), 'JPG'Next osldEnd SubThe formatting was required in order to get the images to display in the proper sequence on another device, (we display the images on a large flat screen TV). I would like to add a progress bar, if possible to this routine to show how far the routing hasgone towards saving the entire file. Perhaps show a change on every 5% saved. I don't know if there is a progress bar widget that can be used or not with Power Point 2007, but it would be useful to do something here.Your help is greatly appreciated. To illustrate how, start with a blank presentation.

Bang Bang Racing. Dash of Destruction (Doritos). Battle: Los Angeles. Buku Sudoku. Dead Block.

In the Visual Basic editor, insert a new UserForm. On that UserForm (default name = UserForm1), add the following control:Microsoft ProgressBar Control, version 6.0You will find it in the 'Addition Controls' list from the 'Tools' menu in the VBE.Now add a general code module and copy the code below into it. Run the code to see how you use the control. It is important to run the form as 'vbModeless' so that your background processing (saving the JPG files) will continue and the form will update.Adapt the code to your needs.HTH,EricOption ExplicitSub TestProgressBarDim i As Long'UserForm1.ProgressBar1.Value = 0UserForm1.ProgressBar1.Min = 0UserForm1.ProgressBar1.Max = 100'UserForm1.Show vbModeless'For i = 1 To If i Mod 10000000 = 0 ThenUserForm1.ProgressBar1.Value = i / 10000000UserForm1.ProgressBar1.RefreshUserForm1.RepaintDoEventsEnd IfNext i'UserForm1.HideEnd Sub If this post is helpful or answers the question, please mark it so.

How to set progress bar during copying file. Rate this: Please Sign up or sign in to vote. See more: VB. HI Please, how can i set my progress the progressbar on my form during copying file from one folder to another folder. File copy with progress bar. Copy a file into another file with progress bar. How to set progress bar title.