Skip to content

Instantly share code, notes, and snippets.

@kumatti1
Last active November 17, 2015 03:26
Show Gist options
  • Save kumatti1/0512d3499ebe832e11c8 to your computer and use it in GitHub Desktop.
Save kumatti1/0512d3499ebe832e11c8 to your computer and use it in GitHub Desktop.
Twitter背景変更
Option Explicit
Call hoge
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 o
Set o = IE.document.getElementsByClassName("js-user-style-header-img")
Dim v
Set v = o.Item(0)
'若草色
v.styleSheet.addRule "body", "background-color:#bbd347"
v.styleSheet.addRule ".ProfilePage", "background-color:#8ECAA0!important;"
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment