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 件のコメント:
コメントを投稿