VBA code to insert unicode symbol.

**ads4go** · 11-03-2022, 05:27 PM

I'm trying to programmatically (VBA) insert the Triangular Flag symbol, Character code: 1F6A9, converted to Decimal is 128681. It can be found in Symbols > Font: Segoe UI Symbol > Subset: Extended Characters - Plane 1 > about 24 rows from the bottom.

I've tried variations of Chr(), ChrW(), AscW; with and without "&H" and also tried converting to binary
e.g.:
[A1] = ChrW(128681)
[A1] = ChrW(&H1F6A9)
[A1] = AscW(128681)
[A1] = AscW(&H1F6A9)
[A1] = Asc(1.1111011010101E+16)

None seem to give me a flag. Sometimes they they result in "49" though.

Any ideas?
Thanks.

**Marc L** · 11-03-2022, 10:41 PM

Your decimal conversion can't exist with the function ChrW like you can check in VBA help …

**Marc L** · 11-03-2022, 10:51 PM

The easy kid way to find out the code character :
just insert the expected character within a cell then on VBE side just display its code via the VBA function AscW, could be a negative value ...

**ads4go** · 11-12-2022, 03:07 PM

Didnt work for me, but thanks for the suggestion.
I tried:
=DecodeAscW("flagSymbol")
in a cell, which gave 55357, but in VBA:
[A1]=AscW(55357)
results in 53.

I also decoded the flag symbol to -10179 somehow, but that's as far as I could get, trying other functions with that value.

**Marc L** · 11-12-2022, 04:25 PM

As the kid way can't fail so your bad according to AscW VBA help - a must read ‼ - which returns the first character numeric code value !
So once your get the code via AscW then to use a char according to its code just use the VBA function ChrW …

**ads4go** · 11-13-2022, 01:40 AM

I think the problem is that ChrW just doesn't work on all the values it is supposed to work on (0 to 65535). If you run the code below to print every symbol in a separate cell, you'll see it returns most of them, but there are sections where it just returns squares with "?"s in the middle. And the symbol I want (55357) just happens to be in one of the sections of squares/?'s. So I guess it can't be done with ChrW.

Sub print_all_symbols()
For j = 1 To 65
For i = 1 To 1000
n = n + 1
Cells(i, j) = ChrW(n)
Next
Next
End Sub

I did think of 2 work arounds: 1) insert a flag symbol in a cell that hopefully won't be seen or edited, then use copy-paste code. (not very elegant, and could be compromised).
2) use code to set the cell to a formula that ultimately displays the flag symbol, even though the cell text is not the symbol itself. I opted for this:
[A1].Formula = "=UNICHAR(""128681"")"

**Sequoyah** · 11-13-2022, 10:52 AM

Hi all,

try this code:

Please Login or Register  to view this content.

**Marc L** · 11-13-2022, 08:33 PM

Originally Posted by ads4go

I think the problem is that ChrW just doesn't work on all the values

As ChrW well works whatever the value according to the specific font so
do not forget to set the same font to the cell where you allocate the character according to its code !

VBA code to insert unicode symbol.

LinkBack

Thread Tools

Rate This Thread

Display

VBA code to insert unicode symbol.

Re: VBA code to insert unicode symbol.

Re: VBA code to insert unicode symbol.

Re: VBA code to insert unicode symbol.

Re: VBA code to insert unicode symbol.

Re: VBA code to insert unicode symbol.

Re: VBA code to insert unicode symbol.

Re: VBA code to insert unicode symbol.

Thread Information

Users Browsing this Thread

Similar Threads

how to use insert symbol panel to search & insert a symbol into a textbox in a userform?

[SOLVED] VBA to insert symbol

[SOLVED] Emoji Unicode VBA replace code with icon in cells

Insert a symbol

Insert a symbol

[SOLVED] Insert symbol

I need a symbol but "symbol" in the Insert menu is grayed-out.

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions