ExcelBanter - Get Font Color Dialog

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Get Font Color Dialog (https://www.excelbanter.com/excel-programming/377640-get-font-color-dialog.html)

Zone

Get Font Color Dialog

I want my macro to open the Font Color Dialog, allow the user to select
a color, and save the color to a variable. Excel 2002. Thanks! James

acampbell

Get Font Color Dialog

James,

Public MyColor As Integer
Sub StorColor()
Application.Dialogs(xlDialogFormatFont).Show
MyColor = ActiveCell.Font.ColorIndex
End Sub

Zone wrote:
I want my macro to open the Font Color Dialog, allow the user to select
a color, and save the color to a variable. Excel 2002. Thanks! James

Zone

Get Font Color Dialog

Thanks much!
acampbell wrote:
James,

Public MyColor As Integer
Sub StorColor()
Application.Dialogs(xlDialogFormatFont).Show
MyColor = ActiveCell.Font.ColorIndex
End Sub

Zone wrote:
I want my macro to open the Font Color Dialog, allow the user to select
a color, and save the color to a variable. Excel 2002. Thanks! James

All times are GMT +1. The time now is 02:10 PM.