Recent content by MarkNie

Hi All I finally got to the bottom of this. Please see code below: Sub UpdateBiogs() ' This requires that you set a reference to Excel in Tools, References ' You could later change these to As Object to avoid that necessity Dim XlsxApp As Excel.Application Dim XlsxWork As...

Hi Skipvought Thanks for you comments, I will take that into consideration. Apologies if I have not thanked anyone which was not what I set out to do. I am however just a technical user and feel I don't have the skills to give any valuable input. Thanks Mark

Hi I have done the below code but keep getting an error. Any ideas? Sub ResizePicture() Dim shp As Shape Dim sld As Slide For Each sld In ActivePresentation.Slides For Each shp In sld.Shapes If shp.Type = msoPicture Then shp.Cut shp.PasteSpecial Format:="Picture (JPEG)", Link:=False...

Hi All Hope you are well. Have a quick question and hoping someone out there would be able to shed some light. We are having problems in PowerPoint 2007 with enhanced metafile images. People keep using these formats which we cannot stop. This causes powerpoint to run very slowly. We have...

Hi Gerry Thank you for your reply. I agree with you it seems this is not currently possible. I will have to think of a better way to attack this problem. Maybe my thought process on the way this could work is not correct. Main aim I am trying to get out of this is that we have 150 staff with...

and this is the complete code I am using: Sub OpenXlsxloop3() ' This requires that you set a reference to Excel in Tools, References ' You could later change these to As Object to avoid that necessity Dim XlsxApp As Excel.Application Dim XlsxWork As Excel.Workbook Dim...

Hi Skip That error is for the following line of code: ActivePresentation.Slides(iSlide).Shapes(i).Select Just under the end select. Thanks

Hi Skip I am getting the following error: Run-time error'-2147188160(80048240)': Shape (unknown member): Invalid request. To select a shape, its view must be active. Thanks for your help though, I will hunt around to see if I can find anything else to help. It is also not putting the text in...

Hi Skip Did you mean add this back in below Endif? ActivePresentation.Slides(iSlide).Shapes("Textbox" & i).textrange.Text = sValue Thanks

Hi SkipVought Apologies for not being more complete with my questions. I have tried the above code, what it seems to be doing now is just taking the last row from xls and filling in the 6 textboxes on the first slide but does not move to the next slides. I am not sure how better to explain...

Hi Gruuu I have also checked all the textboxes and they are all named correctly. For testing purposes I am only useing 21 boxes which are all named correctly eg Textbox1, Textbox2 etc upto Textbox21. Just seems to be only targeting the first 3 textboxes. Would it have something to do with the...

Hi Gruuu There will be between 6 and 9 on each slide. But never more than 9. This is basically for people's biographies. So each one will have a Name, Title and Biog textbox and there will only ever be 3 people on each slide.

Oh I am running this code from PowerPoint.

Hi SkipVought Thank you for the code. I have added to my VBA but keep getting a compile error - Method or data member not found for the TextRange.Text = sValue. I have tried changing the code a bit which works but it only uses the first 3 testboxes in the presentation so the last persons...

Hi Gruuuu Thank you very much, I will give this a go and let you know how I get on. Regards Mark