フリガナのフォントサイズを変えたいのだが、エラーが出る。

Question

毎度お世話になっております。

Excelでフリガナを振ってフォントサイズを変更しようとすると、以下のエラーが表示され、フリガナは表示されても、フォントサイズを変えることが出来なくて困ってます。

実行時エラー　'1004':

FontクラスのSizeプロパティを設定できません。

Sub フリガナ()

Dim LastRow As String

LastRow = Range("A1").End(xlDown).Row
With Worksheets("名簿").Range("A1:A" & LastRow).Phonetics
    .Visible = True
    .Font.Size = 6　'ここでつまる
End With

End Sub

セル選択をして、Selectionを使うなどの方法を試しましたが、やはりFont.Sizeで詰まってしまいます。

ご教授ください。よろしくお願いします。

使用環境：Excel 2013

Answer 1

以下の行でワークシートが明示的になっていないから、かな？

LastRow = Range("A1").End(xlDown).Row
↓
LastRow = Worksheets("名簿").Range("A1").End(xlDown).Row

Comments

[k_shin]

この方法で出来ました！ありがとうございます。
シート名まで明示しないといけないのですね(汗
あっけない感じで驚きました。
迅速な対応、ありがとうございました。

[ttyp03]

解説忘れましたが、シート名がないとアクティブシートが対象になります。
名簿シートの行数を取得したいのに、別のシートを参照してしまっていて、整合が取れていなかったものと思われます。

[k_shin]

なるほど、そんな些細なことでダメになっちゃうのですね。
解説ありがとうございます。

Answer 2

.Visible = True

を抜いてください。

Comments

[k_shin]

抜きましたが、.Font.Sizeでまだエラーが出ます。

[Zuishin]

この回答は間違えました。

With を使わず Worksheets("名簿").Range("A1:A" & LastRow).Phonetics.Font.Size = 6 としてみてください。

[k_shin]

これも同じエラーが出てしまいました。

[Zuishin]

もしこれでできなければ、ふりがなの設定は個別に行うことができず、全体の設定を変えなければならないと思います。

[Zuishin]

https://www.windows8-help.net/office/post-190/

[Zuishin]

いや、これも間違いですね。変更できるようです。

https://docs.microsoft.com/ja-jp/office/vba/api/excel.phonetic

なぜできないのかはわかりません。
後でちゃんと調べてみます。