Inserting Symbols via a macro

[GRussell31]

Hello,

I need to write a macro that will insert one of the symbols into a cell
via a Macro (specifically the shape called 'Black Circle', which can be
found in the Arial font, in the subset Geometric Shapes).

I have tried recording a macro and doing this to see the code, but when
re-ran it only inserts a question mark.

It displays the character code of 25CF (in unicode), is there anyway I
can use this to insert the character?

Many thanks,

-Graham

 

[Ken Johnson]

Hi Graham,
25CF converted from hexadecimal to double yields 9679.
(2*16^3 + 5*16^2 + 12*16 + 9 = 9679)
Range("A1").Value = ChrW(9679) resulted in a small black circle.
Ken Johnson

 

[GRussell31]

Hi Ken,

Brilliant!

You have made my day so much easier!

Thanks,

-Graham

 

[Ken Johnson]

Hi Graham,
You're welcome, glad I could help you out. Thanks for the feedback.
Ken Johnson

 

[Ken Johnson]

I know this isn't important, but I just noticed a little mistake I made
in the working out of 25CF to 9679. The final result's correct, but the
+ 9 should have been + 15, since F = 15.
Ken Johnson

 

[Tom Ogilvy]

Here is an easier way:

? &H25CF
9679

so
d# = &H25CF
ActiveCell.value = chrw(d)

or

ActiveCell.Value = chrw(&H25CF)

 

[Ken Johnson]

Hi Tom,
Thanks for that, this is the first time I've worked with Hexadecimal.
It's nice to get to know the little shortcuts.
Ken Johnson

 

[Dorci]

Okay, I don't understand how either of you converted that unicode number.
I'd like to convert code 221A to get the checkmark symbol. I'm sure you
could tell me the value, but I'd also like to understand that "easier way"
that Tom mentioned. Where exactly to I enter "? &H221A" to get the result?
Thanks so much!

 

[GRussell31]

Dorci,

To obtain the value enter the macro designer in Excel.
The bring up the immediate window (CTRL + G). You will then be able t
type '? &221a' into the immediate pane and it will return 145.

Hope that helps,

-Graha

 

[Dorci]

Thanks for the tip on the "Immediate" window. I never knew about that.