Solved

Update font size in labels and text boxes in powerpoint vba

Posted on 2013-11-23
9
1,351 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
On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

 
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 500 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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Introduction I recently received a question about the creation of Computer-Based Training (CBT) that incorporates quizzes in the middle of the lesson. The intent was to keep people engaged in the content, and not to actually track students’ scores.…
Have you ever been sent a PowerPoint presentation file and wondered why it filled your mailbox? Or have you ever sent a PowerPoint presentation by email and received complaints about the size? Or have you ever created a PowerPoint presentation and t…
The viewer will learn how to edit animations within the presentation, incorporate sound, and set everything up with timing.
The viewer will learn how to  create a slide that will launch other presentations in Microsoft PowerPoint. In the finished slide, each item launches a new PowerPoint presentation and when each is finished it automatically comes back to this slide: …

707 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