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

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

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

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

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

No.2 ベストアンサー 回答者： WindFaller 回答日時： 2014/06/16 10:11

こんにちは。

>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

この回答へのお礼

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

お礼日時：2014/07/10 15:07

No.1 回答者： NotFound404 回答日時： 2014/06/14 10:53

o.Object.FontSize = 9

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

この回答へのお礼

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

お礼日時：2014/07/10 15:07