[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1452
  • Last Modified:

Update font size in labels and text boxes in powerpoint vba

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
SweetingA
Asked:
SweetingA
  • 5
  • 2
  • 2
1 Solution
 
oleggoldCommented:
try to record macro,then tools-> developer tools - edit the macro
0
 
oleggoldCommented:
fin msoffice 2010 ,developer tab (make sure You add on the ribbon,macros -> command ->create (new command))
0
 
SweetingAAuthor Commented:
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.

 
JSRWilsonCommented:
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
 
SweetingAAuthor Commented:
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
 
SweetingAAuthor Commented:
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
 
SweetingAAuthor Commented:
Solved

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

regards
0
 
SweetingAAuthor Commented:
ok to earn the points tell me how to change the above code to change the font colour
0
 
JSRWilsonCommented:
ActivePresentation.Slides(42).Shapes("TextBox1").OLEFormat.Object.ForeColor = &HC0C000

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

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

  • 5
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now