Replies

2003 doesn’ t have a ribbon and you will find it very hard to run from a keyboard shortcut in PowerPoint

You will need to read this:
http://www.pptfaq.com/FAQ00031_Create_an_ADD-IN_with_TOOLBARS_that_run_macros.htm

Hi there –

Thanks for sticking with me on this.

Did the custom animation, but that calls up the file externally, in Windows Movie Player, rather than playing it within the PPT.

What a pain.

Thanks again.

PPT 2007 cannot embed video. This was introduced in v. 2010.
2007 service pack 2 allows you to play (but not insert) embedded video.

The suspended update (which broke RT versions) has now been fixed and reissued.

Just for info. the required update (KB2920732) has been withdrawn because it totally killed PowerPoint in the RT version! Since this is obviously a serious problem my guess is it will soon be fixed.

Hi John,

2010

I would say the easiet way is to treat the parent shape as a group.

This should get you started (change the shape type if needed)

Code:

Sub S_Art()
Dim oSA As SmartArt
Dim oparent As Shape
Dim i As Integer
Dim s As Integer
On Error Resume Next
Err.Clear
Set oSA = ActiveWindow.Selection.ShapeRange(1).SmartArt
If Err  0 Then
MsgBox “Error”
Exit Sub ‘nothing selected or it’s not smart art
End If
Set oparent = oSA.Parent
For i = 1 To oparent.GroupItems.Count
‘only target the shape type you want
If oparent.GroupItems(i).AutoShapeType = msoShapeRectangle Then
With oparent.GroupItems(i).Line
.Visible = True
.ForeColor.RGB = RGB(255, 0, 0)
.Weight = 1
End With
End If
Next i
End Sub

You need to say which version you have. vba support for Smart Art is nearly non existant in version 2007 but better in 2010 on.

Placeholders on the master set the format and the text to be replaced but NOT the actual text in the show which needs to be set on individual slides.

Try this (assumes version 2007 / 2010. There are slightly different steps for 2013)

Open a Blank Presentation
Add a rectangle and format it as desired
Save As
TYPE=Template *.potx
Name= Blank

It won’t but it will if you name it Blank.potx

Possible, but very complex XML skills are needed. We have produced a few for companies but it takes a few hours so not very cheap! There is no simple way.

It might work if the projected show is playing in a window (not full screen). Otherwise you may need third party software eg PowerShow from OfficeOne to do this.

It’s pretty stupid but the only workaround I have found is to insert something invisible as the first letter and be care not to bold it.

A zero width space will work from insert symbol. You could also just use a space but of course that will throw out the format.

If you know how to use a macro this will do it for you

Sub fixBold_Bullets()
Dim L As Long
Dim otr2 As TextRange2
With ActiveWindow.Selection _
.ShapeRange(1).TextFrame2.TextRange
For L = .Paragraphs.Count To 1 Step -1
Set otr2 = .Paragraphs(L).InsertBefore(ChrW(&H200B))
otr2.Font.Bold = False
Next L
End With
End Sub

Making the box shorter should work but I would use a two content layout (Home > Layouts) and paste eight items into the second placeholder.

There is (probably) no need to do this.

Eitehr just type the slide number on the keyboard and ENTER. The pres will jump to that slide or Right Click >> GoTo Slide

There’s no way to auto link the numbers in PowerPoint.

You can manually adjust the start number but that’s it.