VB.net Excel Add-n Using Font Dialog to format a cell

Hi/ I am using FontDialog to capture information about an Excel cell that I will be using later.
How do I actually format the cell using this information.
I tried  Globals.ThisAddIn.Application.ActiveCell.Font = FontDialog1.Font
but get an error saying that the font is ReadOnly


                Dim FontName As String = FontDialog1.Font.Name
                Dim FontStyle As String = FontDialog1.Font.Style.ToString
                Dim FontSize As String = FontDialog1.Font.Size.ToString
                Dim FontColorARGB As String = Me.FontDialog1.Color.A & ";" _
                                          & Me.FontDialog1.Color.R & ";" & _
                                          Me.FontDialog1.Color.G & ";" & _
                                          Me.FontDialog1.Color.B
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAsked:
Who is Participating?
 
Rory ArchibaldConnect With a Mentor Commented:
You can't just assign a Font object - you have to set each of the properties you want individually:
With Globals.ThisAddIn.Application.ActiveCell.Font
.Name = FontName
 .FontStyle = FontStyle
                .Size = CLng(FontSize)
 .Color = RGB(Me.FontDialog1.Color.R, Me.FontDialog1.Color.G ,Me.FontDialog1.Color.B)
End With

Open in new window


or something along those lines.
0
 
Murray BrownMicrosoft Cloud Azure/Excel Solution DeveloperAuthor Commented:
Thanks very much
0
All Courses

From novice to tech pro — start learning today.