[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1437
  • 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
Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

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.

 
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

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.

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