Excel VBA - pasting Windings2 characters

I need to insert these Windings2 characters into a cell like this.
Font Windings2
Normally I would Copy from the Character Map, while recording a macro, and adapt the code. But when I do that with these characters I get ... nothing!

What I'm looking for is:
Range("D4").Value = [what goes here?]
hindersalivaAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Martin LissConnect With a Mentor Older than dirtCommented:
Actually the semicircleup is Chr(188), the semicircledown is chr(189) and the empty circle is 154.  I couldn't find the solid circle but a octagon is 197  so try

Range("A1").Value = Chr(188) & Chr(197) & Chr(197) & Chr(197) & Chr(189) & Chr(154)
0
 
Martin LissOlder than dirtCommented:
Set the font for the cell to Wingdings 2 and then something like this
Range("D4").Value ="PP"
would give you two checkmarks. You need to determine the equivalent normal text for the characters you want.
0
 
hindersalivaAuthor Commented:
It's the "PP" I'm looking for. I found this
https://www.myfonts.com/fonts/ascender/wingdings/2/

Where I found this
Example character
I can copy/paste to make the character appear in the cell, but when I copy it to the IDE I get a '?'.
Cleary I'm not doing it correctly :(
0
 
hindersalivaAuthor Commented:
Ah! Solid circle turns out to be Chr(152)

Thanks Martin. I'm sorted!
0
 
Martin LissOlder than dirtCommented:
You're welcome and I'm glad I was able to help.

If you expand the “Full Biography” section of my profile you'll find links to some articles I've written that may interest you.

Marty - Microsoft MVP 2009 to 2016
              Experts Exchange MVE 2015
              Experts Exchange Top Expert Visual Basic Classic 2012 to 2015
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.