個別ページのaセレクタ変更

Module1.bas

Sub hoge()

    Const url = "https://twitter.com/ユーザー名

    Dim IE
    Set IE = CreateObject("Shell.Application").Windows.findwindowSW(url, Empty, 1, 0, 1)
    If IE Is Nothing Then Exit Sub

    Dim e As IHTMLStyleSheetsCollection
    Set e = IE.Document.styleSheets

    Dim st As IHTMLStyleSheet
    Set st = e.Item(3)

    Dim r As DispHTMLStyleSheetRule
    Set r = st.rules.Item(0)

    'MsgBox r.selectorText
    'MsgBox r.Style.cssText
    
    r.Style.cssText = "color: rgb(255, 255, 255);"


End Sub