• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 154
  • Last Modified:

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?]
0
hindersaliva
Asked:
hindersaliva
  • 3
  • 2
1 Solution
 
Martin LissRetired ProgrammerCommented:
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
 
Martin LissRetired ProgrammerCommented:
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
 
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 LissRetired ProgrammerCommented:
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

Featured Post

Become an Android App Developer

Ready to kick start your career in 2018? Learn how to build an Android app in January’s Course of the Month and open the door to new opportunities.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now