WebBrowserでフォントサイズを変更するには (ID:85343)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 第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)