Inserting Symbols via a macro

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

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

Hi Ken,

Brilliant!

You have made my day so much easier!

Thanks,

-Graham

Hi Graham,
You're welcome, glad I could help you out. Thanks for the feedback.
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

Here is an easier way:

? &H25CF
9679

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

or

ActiveCell.Value = chrw(&H25CF)


--
Regards,
Tom Ogilvy


"Ken Johnson" <KenCJohnson@gmail.com> wrote in message
news:1138967516.851118.97990@f14g2000cwb.googlegroups.com...
> 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
>

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

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!

"Ken Johnson" wrote:

> 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,

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

Hope that helps,

-Graham

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

"GRussell31" wrote:

>
> Dorci,
>
> To obtain the value enter the macro designer in Excel.
> The bring up the immediate window (CTRL + G). You will then be able to
> type '? &221a' into the immediate pane and it will return 145.
>
> Hope that helps,
>
> -Graham
>
>
> --
> GRussell31
> ------------------------------------------------------------------------
> GRussell31's Profile: http://www.excelforum.com/member.php...o&userid=31138
> View this thread: http://www.excelforum.com/showthread...hreadid=507999
>
>