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

解決

なごみ  2004-08-30 21:35:02  No: 85342  IP: [192.*.*.*]

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

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

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

編集 削除
魔界の仮面弁士  2004-08-30 22:39:18  No: 85343  IP: [192.*.*.*]

第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-30 23:20:59  No: 85344  IP: [192.*.*.*]

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

編集 削除