[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

Update font size in labels and text boxes in powerpoint vba

Posted on 2013-11-23
9
Medium Priority
?
1,417 Views
Last Modified: 2013-11-25
Does anyine know how to easily update font characteristics in access vba for text boxes or labels that are already created.

Also in what event they should be te triggered.

All help most welcome.
0
Comment
Question by:SweetingA
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 2
  • 2
9 Comments
 
LVL 21

Expert Comment

by:oleggold
ID: 39672181
try to record macro,then tools-> developer tools - edit the macro
0
 
LVL 21

Expert Comment

by:oleggold
ID: 39672185
fin msoffice 2010 ,developer tab (make sure You add on the ribbon,macros -> command ->create (new command))
0
 

Author Comment

by:SweetingA
ID: 39672258
I can't record a macro because the font tools are greyed out when i click on toolbox items (i.e. textbox, command button or label) - thats why i need to know the vba code.

I am using MSOffice 2003

Regards
0
Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

 
LVL 23

Expert Comment

by:JSRWilson
ID: 39672551
PowerPoint or Access?

Sounds like you have added a textbox from the control toolbox. Is there a good reason for this because otherwise a normal textbox will be easier?

What font characteristics need to change and when?
0
 

Author Comment

by:SweetingA
ID: 39672719
Its powerpoint, in access i have no problems but i have never used powerpoint vb

Yes i used the toolbox because i want the user to input something

its not so much the syyntax i am struggling with its the name of the event/function to trigger the change, is there a list of available functions?

Regards
0
 

Author Comment

by:SweetingA
ID: 39672729
I have tried things like this but i can't seem to trigger the event

When i try the same code in an on click event (which is no use for me) it tells me i can't use a textframe for this type of object

Private Sub SlideShowBegin(ByVal Wn As SlideShowWindow)
    ActivePresentation.Slides(42).Shapes("TextBox1").TextFrame.TextRange.Font.Size = 28
End Sub
0
 

Author Comment

by:SweetingA
ID: 39672739
Solved

            ActivePresentation.Slides(42).Shapes("TextBox1").OLEFormat.Object.Font.Size = 28

regards
0
 

Author Comment

by:SweetingA
ID: 39672757
ok to earn the points tell me how to change the above code to change the font colour
0
 
LVL 23

Accepted Solution

by:
JSRWilson earned 2000 total points
ID: 39672799
ActivePresentation.Slides(42).Shapes("TextBox1").OLEFormat.Object.ForeColor = &HC0C000

Value in Hex -this is RGB(0,192,192)
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preface: When I started this series, I used the term CommandBars because that is the Office Object class that it discusses. Unfortunately, when Microsoft introduced Office 2007, they replaced the standard Commandbar menus with "The Ribbon" and rem…
A lot of things can happen during a presentation, worst of which is “death by PowerPoint.” Here are a few mistakes to avoid to make your slides clean.
The viewer will learn how to edit the master slide. They will also learn how to combine multiple themes into one master slide to use them in their presentation.
The viewer will learn how to edit text. This includes Font, Spacing, Resizing, Color, and other special text options.

649 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question