OLEObjectsのフォントサイズを変更

質問

エクセルのシート上のOLEObjectsのフォントサイズを変更することはできますか？
シート上にはコマンドボタンしかないので、フォントのサイズの変更は可能だと思いますが

For Each o In ActiveSheet.OLEObjects
o.Height = 15
o.Width = 30
o.FontSize = 9
Next

こうすうと、実行時エラー438が発生します。

この項目は、手作業じゃないと設定できないのでしょうか？

回答No.2

WindFaller · ベストアンサー

こんにちは。
>For Each o In ActiveSheet.OLEObjects

かなり乱暴なコードです。

もちろん、
o.FontSize = 9
　　↓
o.Object.FontSize　= 9

ですが、CommandButtonだけなら、あえて書くなら、こうなりますね。

Dim o As OLEObject
　For Each o In ActiveSheet.OLEObjects
　　If TypeName(o.Object) = "CommandButton" Then
　　　o.Height = 15
　　　o.Width = 30
　　　o.Object.FontSize = 9
　　End If
　Next o

お礼

ありがとうございました。

回答No.1

NotFound404

o.Object.FontSize = 9
じゃないですかね？
For ～ Next ループ内にブレークポイントを設定し
メニュー→表示→ローカルウィンドウで調べました。

お礼

ありがとうございました。