Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert Symbol from Wingdings
I want to insert character 152 from Wingdings 2 into the current cell in my
worksheet. I can't seem to find the right syntax to do that. Can anyone help? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert Symbol from Wingdings
Kent,
try this With ActiveCell .Value = Chr(152) .Font.Name = "Wingdings 2" End With -- Hope that helps. Vergel Adriano "Kent McPherson" wrote: I want to insert character 152 from Wingdings 2 into the current cell in my worksheet. I can't seem to find the right syntax to do that. Can anyone help? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert Symbol from Wingdings
You need to use chr(152) to specify the character you want.
Sub Macro1() ' ' Macro1 Macro ' Macro recorded 7/25/2007 ' ' ActiveCell.FormulaR1C1 = Chr(152) With ActiveCell.Characters(Start:=1, Length:=1).Font .Name = "Wingdings 2" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub "Kent McPherson" wrote: I want to insert character 152 from Wingdings 2 into the current cell in my worksheet. I can't seem to find the right syntax to do that. Can anyone help? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert Symbol from Wingdings
I get a 438 error for the .Value = Chr(152) statement.
"Vergel Adriano" wrote in message ... Kent, try this With ActiveCell .Value = Chr(152) .Font.Name = "Wingdings 2" End With -- Hope that helps. Vergel Adriano "Kent McPherson" wrote: I want to insert character 152 from Wingdings 2 into the current cell in my worksheet. I can't seem to find the right syntax to do that. Can anyone help? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert Symbol from Wingdings
My bad. I had the statement wrong. It worked. Thanks!!
"Kent McPherson" wrote in message ... I get a 438 error for the .Value = Chr(152) statement. "Vergel Adriano" wrote in message ... Kent, try this With ActiveCell .Value = Chr(152) .Font.Name = "Wingdings 2" End With -- Hope that helps. Vergel Adriano "Kent McPherson" wrote: I want to insert character 152 from Wingdings 2 into the current cell in my worksheet. I can't seem to find the right syntax to do that. Can anyone help? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Type a symbol useing shortcut keys rather the insert a symbol | Excel Discussion (Misc queries) | |||
How do you insert wingdings symbols using VBA macro? | Excel Programming | |||
Insert symbol | Excel Discussion (Misc queries) | |||
insert symbol | Excel Worksheet Functions | |||
I need a symbol but "symbol" in the Insert menu is grayed-out. | Excel Discussion (Misc queries) |