Consulting

Results 1 to 5 of 5

Thread: Altering tables in slideshow

  1. #1

    Altering tables in slideshow

    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

  2. #2
    VBAX Master
    Joined
    Feb 2007
    Posts
    2,094
    Location
    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.
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

  3. #3
    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...

  4. #4
    VBAX Regular
    Joined
    Nov 2012
    Location
    United States
    Posts
    11
    Location
    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.

  5. #5
    VBAX Newbie
    Joined
    Mar 2014
    Posts
    2
    Location
    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

    Quote Originally Posted by John Wilson View Post
    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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •