Combine multiple presentations

stevevrabel · #16 11-02-2014, 02:05 PM

Okay, sorry, traveling again and just got back to my computer. The suggestion I believe was to add the number 2 after TextFrame on the one command line. I did this and when I ran the macro it returned an error as follows:

Compile error:
Method or data member not found

and it highlighted the command .Color = vbBlack.....only the .Color was highlighted

I removed the number 2 and it ran correctly but again did not remove the shadow.

As for the file, I have just created a sample of 4 slides, each with different size text, different font, shadows, etc and the macro works on everything except the shadow still.

JohnWilson · #17 11-02-2014, 02:19 PM

There were three changes (Not sure what happened to the layout)

Code:

With CheckShape.TextFrame2.TextRange.Font
.Name = "Times New Roman"
.Size = 60
.Bold = msoTrue
.Fill.ForeColor.RGB = vbBlack
.Shadow.Visible = msoFalse           'Add other attributes as needed.
End With

stevevrabel · #18 11-02-2014, 02:48 PM

That got rid of that error and again, did everything except remove the shadow.

I created 5 different shadow effects and did not see where it eliminated any of the shadow styles. Maybe it is this Mac version....I know Microsoft did not include all commands and features in the Mac version of Office

Again, I thank you all for trying to help me with this.

JohnWilson · #19 11-02-2014, 03:33 PM

Maybe someone applied the shadow to the shape not thetext?

Code:

  'Code that looks through each shape and then formats the text to
  'a specific type of font.
  
  Dim pst As Presentation, CheckSlide As Slide, CheckShape As Shape
  
  Set pst = ActivePresentation
  
    On Error Resume Next 'Skip over no text shapes and wordart.
    For Each CheckSlide In pst.Slides
      For Each CheckShape In CheckSlide.Shapes
        CheckShape.TextFrame.TextRange.ChangeCase ppCaseTitle
        CheckShape.Shadow.Visible = False
        'Times New Roman, 60pt, Bold, font color, Sentence case, no shadow, etc
        With CheckShape.TextFrame2.TextRange.Font
          .Name = "Times New Roman"
          .Size = 60
          .Bold = msoTrue
          .Fill.ForeColor.RGB = vbBlack
          .Shadow.Visible = False
          'Add other attributes as needed.
        End With
      Next CheckShape
    Next CheckSlide
    On Error GoTo 0
End Sub

If not maybe post the pptx somewhere. You can email it if you wish
john ATSIGN pptalchemy.co.uk

stevevrabel · #20 11-22-2014, 09:14 AM

I have been traveling a lot and have recently gotten back to this. I have tried all these suggestions and have done a lot of research and still cannot find a solution to eliminate the Shadow effect.

I recently worked on another presentation they sent me and all but 5 slides had the shadow effect so out of 75 slides I had to manually work on 70 of them. It would be very helpful to solve this one last piece of the puzzle.

Any more ideas anyone??? Would be greatly appreciated

JohnWilson · #21 11-22-2014, 10:55 AM

As I said in the email. -- The code removes the text shadow on a PC so i guess it's a Mac code thing.
In which case I doubt there will be an answer.

stevevrabel · #22 11-22-2014, 11:54 AM

I understand you said that but you also said you were not a Mac expert so I am still hoping.

I think you are right, but I know what the answer is if I don't ask.

I have seen many things in the Mac version of Office that is not included from the PC version. VB though is a programming language and it would seem to me would work in either version.....maybe not.

Thanks again for all your help in this issue.

stevevrabel · #23 11-22-2014, 12:00 PM

Just as a follow up, I read where they brought VBA back to Excel for Mac 2011 and it is supposedly identical to the PC version. This would lead me to believe the VBA should be identical if using it on the Powerpoint version of Mac 2011. That is probably the problem....thinking something like this would be logical.

JohnWilson · #24 11-22-2014, 12:59 PM

vba "should" be identical but it isn't and in nearly every case where they differ it works on a PC and NOT on Mac.

For a simple example try setting or just reading the languageID on a Mac
msgbox ActivePresentation.Slides(1).Shapes(1).TextFrame.T extRange.LanguageID

The best place to ask a Mac Expert (eg my friend Jim Gordon) is here
http://answers.microsoft.com/en-us/m...nt?tab=Threads

Jim lives in Buffalo so may be under a lot of snow.

stevevrabel · #25 11-22-2014, 02:33 PM

I could not get that command to work. I am sure you are right. I still save at least half the time I spent before so it is all good.

Thanks

JohnWilson · #26 11-23-2014, 02:21 AM

That's what I mean - it SHOULD work but it doesn't.

stevevrabel · #27 11-23-2014, 06:44 AM

I am just slow to give up....I always think there can be a work around but maybe (probably) not in this case.

JohnWilson · #28 11-23-2014, 07:42 AM

probably worth asking with the link I included. Jim knows a lot more about Mac vba than me.

We don't give up either! The company strap line is "If it's impossible it may take a little longer."

I have no idea if this lateral thinking approach works on a Mac but have a go

Sub macable_maybe()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then
oshp.TextFrame.TextRange.Select
End If
End If
Application.CommandBars.ExecuteMso ("CharacterFormattingReset")
Next oshp
Next osld
End Sub

You could also (maybe)

Loop through shapes that are text placeholders with text and with one set correctly

oshp.PickUp

and with all the others

oshp.Apply

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Combine or merge multiple worksheets into one worksheet	timomaha	Excel	1	07-21-2014 01:02 PM
Multiple Powerpoint Presentations Hyperlinked Audio Problem.	donoskaro	PowerPoint	0	03-24-2014 01:07 PM
Excel -> PowerPoint multiple presentations - process automation	wstach	Excel Programming	2	03-18-2014 06:20 AM
combine multiple documents word starter 2010	bribelge	Word	3	12-19-2012 09:25 AM
link common slides in multiple presentations	robtho	PowerPoint	1	06-24-2011 12:55 AM