Formatting charts, problem with deselection.
Hello all,
I wrote a Sub to format all charts equally once selected and running the procedu Sub ChartMods() If ActiveChart Is Nothing Then MsgBox "No chart selected" Exit Sub End If With ActiveChart .ChartArea.Font.Name = "Arial" .ChartArea.Font.FontStyle = "Regular" .ChartArea.Font.Size = 16 End With End Sub Then I made the following call: Private Sub CommandButton1_Click() Call ChartMods End Sub But the problem is: when I select the chart and then click the button, the chart gets deselected and the button becomes active in stead of the chart. What Am I Overlooking? thanks in advance. Fries |
Formatting charts, problem with deselection.
Set the changefocusonclick property of the command button to false.
-- Regards, Tom Ogilvy "Fries" wrote in message om... Hello all, I wrote a Sub to format all charts equally once selected and running the procedu Sub ChartMods() If ActiveChart Is Nothing Then MsgBox "No chart selected" Exit Sub End If With ActiveChart .ChartArea.Font.Name = "Arial" .ChartArea.Font.FontStyle = "Regular" .ChartArea.Font.Size = 16 End With End Sub Then I made the following call: Private Sub CommandButton1_Click() Call ChartMods End Sub But the problem is: when I select the chart and then click the button, the chart gets deselected and the button becomes active in stead of the chart. What Am I Overlooking? thanks in advance. Fries |
All times are GMT +1. The time now is 06:49 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com