| ■95405 / inTopicNo.3) |
Re[1]: Win10/Pro ＋ EXCEL365 ＋ "IPAmj明 |
□投稿者/ 魔界の仮面弁士 (2794回)-(2020/07/29(Wed) 10:07:44)
|
■No95400 (S.Kos さん) に返信
> 右隣に「ペケが入った豆腐」が書き出される→左クリックしても数式バーは空欄
結合文字に対して、均等割り付けの実装が追い付いていないように見えますね。
https://hydrocul.github.io/wiki/blog/2015/1025-unicode-grapheme-clusters.html
合成文字や異体字セレクタは分解された上で、代替文字で描画 or 消失。
分解された IVS は文字数 0 としてカウントされ、分解後の描画位置が狂いますし、
サロゲートペアのレンダリングも正しく行われないようです。
なお Excel ではなく Word なら、正しく均等割り付けされるようです。
' Office Professional Plus 2016 の Excel 2016 MSO (16.0.13001.20266) 32 ビット
' バージョン 2006 (ビルド 13001.20384 クイック実行) の VBA で動作確認。
'
Option Explicit
Sub Test()
With Sheet1.[B2:B7]
.Font.Name = "IPAmj明朝"
.Font.Size = 21
.ColumnWidth = 24#
'【OK】
'(中国語の)Ni Hao … [U+4F60],[U+597D]
'.Value = "「" & ChrW(&H4F60) & "好」"
'【NG】
'(つちよし)な吉野家… [U+20BB7],[U+91CE],[U+5BB6]
'Value = "「" & ChrW(&HD842) & ChrW(&HDFB7) & "野家」"
'【NG】
'[MJ021594]の「花」… [U+82B1][U+E0106]
'[MJ006359]の「丸」… [U+4E38][U+E0102]
.Value = "「花" & ChrW(&HDB40) & ChrW(&HDD06) & "丸" & ChrW(&HDB40) & ChrW(&HDD02) & "」"
'【NG】
'合成カラー絵文字「女性(皮膚色Type-3)と男の子(皮膚色Type-3)」… [U+1F469],[U+1F3FB],[U+200D],[U+1F466],[U+1F3FC]
'※Word や VSCode はカラー絵文字に対応しているが、Excel では非対応なので単色表示される
'.Value = "「" & ChrW(&HD83D) & ChrW(&HDC69) & ChrW(&HD83C) & ChrW(&HDFFB) & ChrW(&H200D) & ChrW(&HD83D) & ChrW(&HDC66) & ChrW(&HD83C) & ChrW(&HDFFC) & "」"
'水平方向の配置
.Rows(1).HorizontalAlignment = XlHAlign.xlHAlignGeneral '標準
.Rows(2).HorizontalAlignment = XlHAlign.xlHAlignDistributed '均等割り付け
.Rows(3).HorizontalAlignment = XlHAlign.xlHAlignJustify '両端揃え
.Rows(4).HorizontalAlignment = XlHAlign.xlHAlignLeft '左揃え
.Rows(5).HorizontalAlignment = XlHAlign.xlHAlignCenter '中央え
.Rows(6).HorizontalAlignment = XlHAlign.xlHAlignRight '右揃え
End With
End Sub
|
|