View Full Version : Altering tables in slideshow
jondallimore
12-27-2012, 05:32 AM
Hi,
I have the code below to format and insert text into a table. However... is there any way to alter the appearance of a table when the slideshow is running? What I would like to do eventually is insert a tick when the slideshow is running.
Also - is there a way I could apply this to ALL slides? All slides will be identical.
Many thanks in advance
Jon
With ActivePresentation.Slides(1).Shapes(1).Table
.Cell(1, 1).Shape.TextFrame.TextRange.Text = "hello"
.Cell(1, 2).Shape.Fill.ForeColor.RGB = RGB(111, 131, 68)
End With
John Wilson
12-29-2012, 08:44 AM
To apply to all slides
Sub fixall()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
With osld.Shapes(1).Table
.Cell(1, 1).Shape.TextFrame.TextRange.Text = "hello"
.Cell(1, 2).Shape.Fill.ForeColor.RGB = RGB(111, 131, 68)
End With
Next osld
End Sub
This code (and the original) will already work in show mode so you will need to explain more what you need.
jondallimore
01-04-2013, 09:52 AM
thats exactly what I need, for it to work in show mode... thanks. theres another reason its not working as I want, but thats for another post...
Johncoltrane
01-31-2013, 10:51 PM
Hi John you have given good information I tried it on my presentation slides. It is working exactly the way I want. The code is working very well. Thanks for the code and informative post.
Harmeet
03-10-2014, 12:39 PM
Hi I am facing two problems.
1. I have a table of content which is linked to slides however , is there a way so that as soon as I change the header of the linked slide, it automatically changes Table of Content with new heading.
2. I have 4 master slides and want a VBA which applies this 1 master slide to specific slides in the deck.
Please help me out. I have an important deadline to meet and this would be very helpful.
Thanks,
Harmeet
To apply to all slides
Sub fixall()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
With osld.Shapes(1).Table
.Cell(1, 1).Shape.TextFrame.TextRange.Text = "hello"
.Cell(1, 2).Shape.Fill.ForeColor.RGB = RGB(111, 131, 68)
End With
Next osld
End Sub
This code (and the original) will already work in show mode so you will need to explain more what you need.
Powered by vBulletin® Version 4.2.5 Copyright © 2025 vBulletin Solutions Inc. All rights reserved.