WebBrowserでフォントサイズを変更するには

解決

なごみ 2004-08-31 06:35:02 No: 85342

WebBrowserで表示したページのフォントサイズを大、中、小と変更したいのですが、過去ログにあったExecWBの使い方が分かりません。下記のように記述したのですが、記述が誤っていましたらどなたかご教授を御願い致します。

Dim Size As Variant
Size = 0
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, Size

Sizeに0〜4を指定してみましたが、うまくいきませんでした。

魔界の仮面弁士 2004-08-31 07:39:18 No: 85343

第3引数のデータ型が間違っています。

上記では、『内部処理形式 Integer の Variant型』が指定されていますが、
正しくは、『内部処理形式 Long の Variant型』を指定する必要があります。

修正案1)
Dim Size As Variant
Size = 0&
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, Size

修正案2)
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, CLng(0)

修正案3)
Dim Size As Long
Size = 0
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DODEFAULT, CVar(Size)

なごみ 2004-08-31 08:20:59 No: 85344

Dim Size As Variant
と指定すれば良いものだと思っていました。
魔界の仮面弁士さんの修正案１で問題無く動作しました。
こんな時間にどうもありがとうございました。