|
▼hito さん:
おはようございます。
これは、セル(Range)のPhoneticsコレクションを調べないと
ならないですね!!
下記のコードで セルA1の内容とフリガナをB1に移行します。
試してみて下さい
'===========================================================
Sub main()
Range("b1").Value = Range("a1").Value
Call Set_phonetic(Range("a1"), Range("b1"))
Range("b1").Phonetics.Visible = True
End Sub
'===============================================================
Sub Set_phonetic(r1 As Range, r2 As Range)
Dim idx As Long
On Error Resume Next
r2.Phonetics.Delete
For idx = 1 To r1.Phonetics.Count
r2.Phonetics.Add r1.Phonetics(idx).Start, _
r1.Phonetics(idx).Length, _
r1.Phonetics(idx).Text
Next
On Error GoTo 0
End Sub
|
|