Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4212 / 13644 ツリー ←次へ | 前へ→

【57850】WebBrowserの設定 Abebobo 08/9/17(水) 16:51 質問[未読]
【57852】Re:WebBrowserの設定 Abebobo 08/9/17(水) 17:26 質問[未読]
【57856】Re:WebBrowserの設定 Abebobo 08/9/17(水) 19:17 発言[未読]

【57850】WebBrowserの設定
質問  Abebobo  - 08/9/17(水) 16:51 -

引用なし
パスワード
   お世話になります。
質問をお願いします。
WebBrowser をシート上に一つ作成しておいて、その中に流れる文字を作成しようと悪戦苦闘しています。
過去の回答者さんのサンプルコードと
htp://www.bannerkoubou.com/html-tag/marquee/
を参考に、

Sub try1()
Dim Oj1 As OLEObject
  With ActiveSheet
    Set Oj1 = .OLEObjects(1)
    With Oj1
      .Object.Navigate _
      "javascript:document.write('<body topmargin=3 scroll=no ><Marquee>道の駅こぶちざわ</Marquee>');"
    End With
    .Select
  End With
  DoEvents: DoEvents
End Sub

'<marquee bgcolor="#008080" scrolldelay="" truespeed>ABCDEFG</marquee>

ここまできました。
フォントサイズと太字は解ったのですが(設定できた)、背景色と文字色の設定がわかりません。
ググってみたり、bgcolor=#008080 と、してみたりしましたがお手上げです。
教えてください。

【57852】Re:WebBrowserの設定
質問  Abebobo  - 08/9/17(水) 17:26 -

引用なし
パスワード
   自分の投稿をみてビックりしました。

で、フォントの色は設定できました。
あとは、背景色だけです。

カラーコードなどが載っているサイト等をご存知の方がいましたら教えてください。

【57856】Re:WebBrowserの設定
発言  Abebobo  - 08/9/17(水) 19:17 -

引用なし
パスワード
   "javascript:document.write('<body topmargin=3 scroll=no ><Marquee bgcolor=#008000>道の駅こぶちざわ</Marquee>');"

で解決しました。

4212 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free