読者です 読者をやめる 読者になる 読者になる

管理人Kのひとりごと

デジモノレビューやプログラミングや写真など

【改訂版】「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」設定画面を開くためのマクロを作ってみました

前回☟のもの、Office2013同士でも、また、Office2016では挙動が異なることが判明。
k-hitorigoto.hatenablog.jp
オプション画面を開いたとき、左ペインにフォーカスがあるため、そのまま下へ移動するよう修正しました。
Office2013でも、Office2016でも動いていました。

Option Explicit

Sub セキュリティセンター_マクロの設定を開く2()
    Dim i As Integer

    ActiveWorkbook.Activate
    
    'セルの入力状態他を解除するため、ESCキーを5回押下する
    For i = 1 To 5
        SendKeys "{ESC}"
    Next
    
    ' オプション画面を開く
    SendKeys "%to"
    
    ' セキュリティセンターを選択するようキー操作する
    ' 左ペインの「セキュリティセンター」を選択
    For i = 1 To 9
        SendKeys "{DOWN}"
    Next
    
    ' 「セキュリティセンター」ウィンドウを開く
    SendKeys "%t"
    
    ' 「ActiveXの設定」→「マクロの設定」となるようキー操作
    ' 前回選択した項目を記憶している?ようなので、「ActiveXの設定」を起点にキー操作する
    SendKeys "a{DOWN}"
    
    ' Alt+VでチェックON/OFFをトグルで切り替え
    SendKeys "%v"
    
End Sub

【訂正版あります】「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」設定画面を開くためのマクロを作ってみました

Excel2003くらいからですかね、VBAProjectオブジェクトへアクセスする際、「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」にチェックが入っていないといけなくなったじゃないですか。
普段からチェック入れたまま、というのもアレですし、かといって、設定箇所どこだっけ...みたいになりがちじゃないですか。
これです☟
f:id:ksk1130:20170426233638p:plain

というわけで、「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」を開くためのマクロを作りました。VBAでひたすら当該箇所までのキー押下を再現しています。
標準モジュールに以下のソースを書いて実行です!
チェックON/OFFはトグルなので、最終的にONなのか、OFFなのかは目視確認が必要ですが、どこだっけ...?の手間は軽減できると思います。

    • 追記

Office2013で検証したのですが、Office2013同士でも、また、Office2016では挙動が異なることが判明。書き直しました☟
k-hitorigoto.hatenablog.jp

追記ここまで--
>|vb|
Option Explicit

Sub セキュリティセンター_マクロの設定を開く()
Dim i As Integer

ActiveWorkbook.Activate

'セルの入力状態他を解除するため、ESCキーを5回押下する
For i = 1 To 5
SendKeys "{ESC}"
Next

' オプション画面を開く
SendKeys "%to"

' セキュリティセンターを選択するようキー操作する
' 左ペインにカーソルが移動するようTABキー押下
For i = 1 To 17
SendKeys "{TAB}"
Next

' 左ペインの「セキュリティセンター」を選択
For i = 1 To 9
SendKeys "{DOWN}"
Next

' 「セキュリティセンター」ウィンドウを開く
SendKeys "%t"

' 「ActiveXの設定」→「マクロの設定」となるようキー操作
' 前回選択した項目を記憶している?ようなので、「ActiveXの設定」を起点にキー操作する
SendKeys "a{DOWN}"

' Alt+VでチェックON/OFFをトグルで切り替え
SendKeys "%v"

End Sub

|

桜の時期は終わってしまったけれど、清澄庭園へ行ってきました

約1年ぶりに清澄庭園に行ってきました。
清澄庭園|公園へ行こう!
桜は終わってしまいましたが、花のシーズンですね。

前回訪問時の記事↓
k-hitorigoto.hatenablog.jp

本日のお供はG9Xです。

コチラは清澄公園の写真です☟
f:id:ksk1130:20170423175504j:plain
f:id:ksk1130:20170423175505j:plain
藤の花が咲き始めていました。
f:id:ksk1130:20170423175506j:plain
f:id:ksk1130:20170423175507j:plain
清澄公園の写真ここまで☝

清澄庭園の写真ここから☟
f:id:ksk1130:20170423175508j:plain
f:id:ksk1130:20170423175509j:plain
f:id:ksk1130:20170423175510j:plain
f:id:ksk1130:20170423175511j:plain
f:id:ksk1130:20170423175512j:plain
f:id:ksk1130:20170423175513j:plain
f:id:ksk1130:20170423175514j:plain
f:id:ksk1130:20170423175515j:plain
f:id:ksk1130:20170423175516j:plain
f:id:ksk1130:20170423175517j:plain
画面左下はオタマジャクシです...
f:id:ksk1130:20170423175518j:plain
f:id:ksk1130:20170423175519j:plain
f:id:ksk1130:20170423175520j:plain
f:id:ksk1130:20170423175521j:plain
f:id:ksk1130:20170423175522j:plain
f:id:ksk1130:20170423175523j:plain
f:id:ksk1130:20170423175524j:plain
f:id:ksk1130:20170423175525j:plain
f:id:ksk1130:20170423175526j:plain
f:id:ksk1130:20170423175527j:plain
f:id:ksk1130:20170423175528j:plain
f:id:ksk1130:20170423175529j:plain
f:id:ksk1130:20170423175530j:plain
f:id:ksk1130:20170423175531j:plain
f:id:ksk1130:20170423175532j:plain
f:id:ksk1130:20170423175533j:plain
f:id:ksk1130:20170423175534j:plain
f:id:ksk1130:20170423175535j:plain
f:id:ksk1130:20170423175537j:plain
f:id:ksk1130:20170423175538j:plain
f:id:ksk1130:20170423175539j:plain
f:id:ksk1130:20170423175540j:plain
f:id:ksk1130:20170423175541j:plain
f:id:ksk1130:20170423175542j:plain
f:id:ksk1130:20170423175543j:plain
f:id:ksk1130:20170423175544j:plain
f:id:ksk1130:20170423175545j:plain
f:id:ksk1130:20170423175546j:plain
f:id:ksk1130:20170423175547j:plain
f:id:ksk1130:20170423175548j:plain
f:id:ksk1130:20170423175549j:plain
f:id:ksk1130:20170423175550j:plain
f:id:ksk1130:20170423175551j:plain
f:id:ksk1130:20170423175552j:plain
f:id:ksk1130:20170423175553j:plain
f:id:ksk1130:20170423175554j:plain
f:id:ksk1130:20170423175555j:plain
f:id:ksk1130:20170423175556j:plain
f:id:ksk1130:20170423175557j:plain
f:id:ksk1130:20170423175558j:plain
f:id:ksk1130:20170423175559j:plain
f:id:ksk1130:20170423175600j:plain
f:id:ksk1130:20170423175601j:plain
f:id:ksk1130:20170423175602j:plain
f:id:ksk1130:20170423175603j:plain
清澄庭園の写真ここまで☝

夢の島熱帯植物館へ行ってきました

雨が降りそうな天気でしたが、散歩したかったので、夢の島熱帯植物館へ行ってきました。
www.yumenoshima.jp

こちら、入館料は大人250円とリーズナブル!それでいて、熱帯植物に触れることができます。
熱帯の気候はごみ処理場の排熱を利用しているということで、エコでもありますね。
入園してすぐは、「あったかいなぁ」でしたが、終盤には、「あれ、少し暑いかも」と感じるくらいでした。
春先は絶好の見学日和かもしれませんね。植物ごとに「花盛り」のタイミングが異なるようで、年中を通して、様々な植物の「旬」を楽しめそうではあります。
現在は、ランが見ごろのようでした。

本日のお供はG9Xです。あぁ、これはGM1(S)が留守番することが増えてしまいそうだなぁ...そんなカメラです。
k-hitorigoto.hatenablog.jp

植物館近くの夢の島マリーナ
f:id:ksk1130:20170422234656j:plain
桜が咲いていました
f:id:ksk1130:20170422234657j:plain
f:id:ksk1130:20170422234658j:plain
f:id:ksk1130:20170422234659j:plain
f:id:ksk1130:20170422234700j:plain
きっと廃墟なんでしょうね...
f:id:ksk1130:20170422234701j:plain
f:id:ksk1130:20170422234702j:plain
ついたー
f:id:ksk1130:20170422234703j:plain
f:id:ksk1130:20170422234704j:plain
ラフレシア
f:id:ksk1130:20170422234705j:plain
f:id:ksk1130:20170422234706j:plain
かわいらしいのに、食虫植物らしいっす...
f:id:ksk1130:20170422234707j:plain
ここから先、大温室内の写真です。
f:id:ksk1130:20170422234708j:plain
f:id:ksk1130:20170422234709j:plain
f:id:ksk1130:20170422234710j:plain
f:id:ksk1130:20170422234711j:plain
ランが見ごろでしたね。
f:id:ksk1130:20170422234712j:plain
f:id:ksk1130:20170422234713j:plain
f:id:ksk1130:20170422234714j:plain
f:id:ksk1130:20170422234715j:plain
f:id:ksk1130:20170422234716j:plain
f:id:ksk1130:20170422234717j:plain
f:id:ksk1130:20170422234718j:plain
f:id:ksk1130:20170422234719j:plain
このエリア、なんだかおいしそうな甘い香りが漂っていました。
f:id:ksk1130:20170422234720j:plain
f:id:ksk1130:20170422234721j:plain
f:id:ksk1130:20170422234722j:plain
f:id:ksk1130:20170422234723j:plain
f:id:ksk1130:20170422234724j:plain
f:id:ksk1130:20170422234725j:plain
f:id:ksk1130:20170422234726j:plain
f:id:ksk1130:20170422234727j:plain
f:id:ksk1130:20170422234728j:plain
f:id:ksk1130:20170422234729j:plain
f:id:ksk1130:20170422234730j:plain
ここから先は、食虫植物コーナーでの写真です。こんなにかわいらしいのに、虫を食らうなんて...

暖かいし、南国気分を味わえるのでお勧めです。リーズナブルなのもマルですね。今度は天気が良いときに行ってみたいなぁ。
f:id:ksk1130:20170422234731j:plain
f:id:ksk1130:20170422234732j:plain
f:id:ksk1130:20170422234733j:plain
f:id:ksk1130:20170422234734j:plain

京葉線東京駅から有楽町駅を目指してみました

昨日お仕事で幕張方面へ行ったんです↓
k-hitorigoto.hatenablog.jp

で、思い出したんです。京葉線乗り換えは、東京駅ではなく、有楽町駅からの方が近いと。
news.mynavi.jp

ということで、京葉線東京駅から、有楽町駅へ向かうのは本当に近いのか、を実際歩いて確かめてみました。
有楽町駅から乗り換える際は、改札で申し出る必要があるそうですね。

京葉線東京駅で。とりあえず目指すは、国際フォーラム。
f:id:ksk1130:20170420223121j:plain

国際フォーラムは、「京葉地下丸の内口」です。
f:id:ksk1130:20170420223122j:plain

北陸新幹線の顔ハメ。
f:id:ksk1130:20170420223123j:plain

見えてきた、見えてきた。
f:id:ksk1130:20170420223124j:plain

やっぱり京葉線東京駅は、有楽町駅のが近いな、ってのを思い知らされた一枚。横須賀線→京葉線とか、両端同士の乗り換えですもんね...
f:id:ksk1130:20170420223125j:plain

で、到着です。東京駅乗り換えの半分以下では...?
f:id:ksk1130:20170420223126j:plain

方々から出られるようです。マイナビの記事は、「出口2」からでたのかな。
f:id:ksk1130:20170420223127j:plain

国際フォーラムです。チョイブレ。
f:id:ksk1130:20170420223128j:plain

おまけ
f:id:ksk1130:20170420223129j:plain
f:id:ksk1130:20170420223130j:plain
f:id:ksk1130:20170420223131j:plain
f:id:ksk1130:20170420223132j:plain

やっぱり、東京駅乗り換えより断然近かった!京葉線乗り場の離れっぷりは、武蔵小杉駅横須賀線乗り場とか、渋谷駅埼京線乗り場、くらいの離れっぷりがありますよね(いや、それ以上か...!?)

G9Xで昼間に写真を撮りました(その2)

G9Xで昼間に写真を撮ってみました。本日はお仕事の都合で幕張方面に行ったので、幕張成分強めです。
k-hitorigoto.hatenablog.jp

ほほえましかったので1枚。
f:id:ksk1130:20170420220528j:plain

海浜幕張駅前で1枚。
f:id:ksk1130:20170420220529j:plain

影が水平垂直だったので。
f:id:ksk1130:20170420220530j:plain

不法投棄ダメ絶対。だけど絵になるので...
f:id:ksk1130:20170420220531j:plain

マクロモードに切り替えずとも、ここまで寄れます。
f:id:ksk1130:20170420220532j:plain

近接時はボケがざわざわしますね。
f:id:ksk1130:20170420220533j:plain

ZOZOマリンスタジアムにつながる橋にて。平日昼間はこんな感じです。
f:id:ksk1130:20170420220534j:plain
f:id:ksk1130:20170420220535j:plain
f:id:ksk1130:20170420220536j:plain

連接バス!と思って1枚。曲がるところは見られませんでした...
f:id:ksk1130:20170420220537j:plain

どこへ向かうべきなんでしょうかねー
f:id:ksk1130:20170420220538j:plain

その他パチパチと...
f:id:ksk1130:20170420220539j:plain
f:id:ksk1130:20170420220540j:plain