Solved

Change font style, size, ect

Posted on 1998-09-01
2
152 Views
Last Modified: 2013-12-03
I am using the common dialog control.  I want to use it to change the fonts of my objects.  Is there a way to dynamically change all the fonts?  I have the common dialog control working, but I have to specifiy all controls on my form, I want all my command buttons and labels to change to the specific font and size, etc.

any Ideas?
0
Comment
Question by:check1
2 Comments
 
LVL 9

Accepted Solution

by:
Dalin earned 70 total points
ID: 1432374
check1;
You can do something like this.
Regards
Dalin


Dim myControl as Control

On error goto trap
For each myControl in myform
     myControl.font = YourSelected fonts
  Next
'Exit here
Trap:
  Err.clear
Resume next
0
 

Author Comment

by:check1
ID: 1432375
Thanks!
0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

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

Suggested Solutions

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

776 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