|
お世話になります。
質問をお願いします。
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 と、してみたりしましたがお手上げです。
教えてください。
|
|