Sub ShowThemeProperty()
Debug.Print Application.CurrentDb.Properties("Theme Resource Name")
End Sub
Sub SetThemeProperty()
Application.CurrentDb.Properties("Theme Resource Name") = "ThemeName"
End Sub
だけど瞬時に切り替わるわけではない。UIで変更すると変わるわけだからなんらか方法があるかもUIから変更とかしてるとどんどん共有リソースのテーブルに格納されていくから、
Currentproject.AddSharedImageメソッドで追加してからプロパティ更新かな。
0 件のコメント:
コメントを投稿