投稿者: ana-da

ワークシート上にある「SHP1」という名前の図形をコピーして、「SUB_SHP1」という名前を付け、B2セル内に配置するロジックを考えてみた。
コピー元の図形のDuplicateメソッドをつかって、新しい図形(コピー先:以下サンプルでは変数「shp」のこと)を作り、その新しい図形のプロパティをいじって、図形の位置とか、図形の名前、図形に紐づくマクロの設定などを行う。
サンプルでは、セルB2の下部中央に配置する方法。

Dim ws  As Worksheet
Dim shp As Shape

Set ws = Thisworkbook.Worksheets("Sheet1")
Set shp = ws.Shapes("SHP1").Duplicate
With shp
  .Top = ws.Range("B2").Top - .Height -5
  .Left = ws.Range("B2").Left + (ws.Range("B2").Width - .Width) / 2
  .Name = "SUB_SHP1"
  .Visible = msoTrue
  .OnAction = "RunXXX"
End With
Set shp = Nothing
Set ws = Nothing

図形のコピーに「Duplicate」を使うというのは初めて知った。duplicateの意味が「複写する」ってことらしい。

錦市場に行ってきた。
いっぱい食べ物を買ってしまったが、「なんか、値段高くない？」
で、立ち食い・歩き食い用のもんばっかりが目についたんだけど、「なんか、質落ちてない？」

ヨーロッパの人とかだと物価が高いのは慣れっこだからそうでもないんだろうけどね、なんかレベルが下がった感たっぷりで、もう行く気もなくなってしまった。

とはいえ、まぁいろいろ面白いものもあったし、うまいものもあったから、まぁいいっちゃいいねんけど。

「で、あなたたち、ホントにそれでいいん？」と、ちょっと大きなお世話なことを思ってしまった。

Windows2000をVMWareに入れるときに困ったのは、
1) Windows10、VMware Workstation 12 Playerでやると入れられなかった。
2) Windows7、VMware Workstation 12 Playerでやると入ったが、
　Windows2000(SP4)だけではVMware Toolsが入らず修正プログラム「KB835732」が必要だった。

というこの２点。

1つ目は、当該の仮想マシンの設定で、プロセッサの優先モードを「Intel VT-x or AMD-V」か、「Intel VT-x/EPT or AMD-V/RVI」にする。

2つ目は、以下のアップデートファイルをインストールする。
Windows 2000 用セキュリティ問題の修正プログラム (KB835732)
http://www.catalog.update.microsoft.com/Search.aspx?q=KB835732

で、解決！

数値(整数)チェックをしようと、

Function CheckNumber(v as Varient) As Boolean
  CheckNumber = True
  If Len(v)=0 Then Exit Function
  If IsNumeric(v) Then Exit Function
  CheckNumber = False
End Function

とか記載したら、vに「a」とか入れてもTrueで返ってきてしまった。

Function CheckNumber(v as Varient) As Boolean
  CheckNumber = True
  If Len(Cstr(v))=0 Then Exit Function
  If IsNumeric(Cstr(v)) Then 
    If InStr(Cstr(v),".")=0 Then Exit Function '小数じゃなかったら(簡易チェック)
  End If
  CheckNumber = False
End Function

みたいに、文字列に変えてからIsNumericしたらうまくいった。
関数の引数を文字列型にするってのも手だけど、簡易版なのでこれでいいかなと思った。

開発テストのため、SFTPサーバが必要になったが、社内の環境にSFTPサーバはない。
外部のフリーサーバーがないか調べたが、めぼしいものはない。
freeFTPd.exeというフリーソフトを使えば簡単にできるらしい。

で、社内のWindows Serverにインストールして、サービス開始。
ポートNo.22にしてSFTPを起動し、ノートPCから接続してみた。

つながらへんがな・・・・・・

おかしいなぁ～、なんでかなぁ～、簡単やいうたがな・・・・・
とか思いつつ、ポート開放せなあかんのちゃうかなぁ・・・となんとなく感じながら、ファイアウォールの設定で、ポートNo.22を開放。

再度ノートPCから接続。
いけたがな！！

ということで、疎通テストも無事完了。
めでたし、めでたし！

久方ぶりの梅田。
今日は観劇デーだ。
16時の公演前に、朝からぷらぷらと腹ごしらえをしてみよう。

フレンチバル「赤白」
赤・白とかいて、「こうはく」と読ませるらしい。どうみても「せきはく」やろ！と心の中でツッコミつつ、人気の洋風おでんのあるフレンチバルに11時すぎから並んでみた。
11時をちょっとすぎており、第１陣が店に押し寄せた直後だったこともあり、30分ぐらい待ってから店に通される。
まぁ、これぐらいなら短いほうだろう。

早速、有名な大根のおでんを頼んでみる。

ポルチーニ茸のソースはおいしい。
ただ、大根と合うとは思わないな。大根が水っぽ過ぎて、ちょっと不完全燃焼。

つぎ、旨味の抜けた牛肉。カスカスまではいかないけれど、酒飲ませたいのなら、もっと味が濃くてもいいんかなぁ～と思った。
まぁ、酒飲みじゃないし、薄味なのは嫌いじゃないから食べれたけど。

３つめ。地鶏の皮をカリっと焼いて、その上に水菜やらドバっと乗せた一品。食べた中では一番酒のアテに合う一品だった。

ということで、いっぱいある一品の中でこんだけしか食べれなかったのはちょっと残念だが、ダイエット中だし、ほかに食べたいものもあるので我慢した。メニューもいろいろ変わるようなので、機会があればまた行ってみたいところだ。

次はそうだ、たまごサンドを買いに行こう。
そう、東京で有名なあの「天のや」のたまごサンドだ。

2人前買っちまったよ。お得だっていわれたから買っちゃったんだけどね、あっという間に平らげてしまったことだよ。
まったく、しかし、正直あんまり出汁巻きっぽくなかったな。
あと、わたしも大人の舌になったのか、さほどマスタードが辛く感じなかった。
（まぁこんなもんだわね・・・ぐらいの辛さと、そして旨さだった。）
悪くはないが、並んで買うほどの品でもなかった。（ってか、並ばんかったし！）

さあ、そうして私は劇場にどんどん近づいていく。
と、その前に阪急三番街KIDDY-LANDだ。
ぬあああんんと、私の大好きなチェブラーシカが、撮影会をやっているとのこと！
なんて、素晴らしい偶然！

早速、チェブラーシカのもとへ。
希望者と一緒に撮影をした後は、皆さんの撮影大会。

司会から３つのポーズをとるノルマを課せられた可哀そうなチェブラーシカだったが、何とか当たり障りのないポーズで決めてくれた。
どんなポーズをしてもカワイイんだ。だからいいんだヨ。

何枚かカメラに収め満足のうちに、ミニオンズグッズを買い、劇場へ進んでいく。

『アザー・デザート・シティーズ』

今日の観劇はこちら。寺島しのぶさん主演の舞台だ。

舞台はアメリカの一家族で、息子（主人公からすると兄）がとある事件に関与し自殺したことから起こる家族の分裂と衝突、そして和解へとつながる。
アメリカ国民それぞれがもつ思想がわからない自分からすると、なかなか背景を判断するのが難しい話ではあった。

はっきり言って、この話は滑稽で胸くその悪いものだ。
芝居が悪いからとか下手だからではなく、自分や自分の家族に当てはめてみたときに、どこか符合する点というがあって、そこが露わになっているからなんだと思う。要は自分も同じような環境にあったりするものだから、話がエグイというか、心にグサッと刺さるように思えてしまうのだ。
そして、それとは別に、主人公の「欲しがり屋さん」で「精神的に成長していない大人」な様子を見るにつけて、自分はかなり気持ちがなえてしまう。
自分はこんなのは小・中学生の時にほぼ捨てた。（まぁ、捨て切れてはいないけどサ。）

家族は他人だ。赤の他人じゃなけれど、他人だ。夫婦にだって親子にだって秘密の一つや二つある。
ほじくり返して正義を振りかざすようなこと、赤の他人であれば躊躇するし、家族であっても熟考するだろうに・・・などと、いろいろ考えると、やはり気分はよくない。（最終的には、まぁいいようには終わるんだが、なんというか、この馬鹿な娘がどうやったら「大人」になるのか、むしろそっちの過程のほうが逆に気になるわ。つまり砂漠に水が沁みとおる過程のほうが気になるってこと。そんなにスムーズにいくものなん？）

この気分の悪い話をうまい具合に気分が悪いままになるように構成した演出と演者にまず拍手を贈ろう。
（無論、誉め言葉だ。これが美しい話に化けたら、この芝居を観る意味もない。）

中嶋しゅうさんが東京での舞台途中でお亡くなりになったのだが、代役の斎藤歩さんは、本当に代役なのかというほど役にぴったしな感じがした。
斎藤歩バージョンがよかったので、中嶋さんがやったらどうなっていたのか、やっぱり見てみたかったなぁ・・・としみじみ思った。
佐藤オリエさんや、麻実れいさんは、さすがの安定感を見せる。若い中村蒼さんも、この鬱蒼とした雰囲気の家族のなかで、自己主張しつつ、自分を守ろうとしているという、なかなかバランスの難しい役どころだがうまくやっている。
主役の寺島さんは、初めて舞台を見たのだけど、意外に映像向けの人なのかな、と感じた。なんというか、少ない人数での芝居で空間を埋められるパワーが感じられなった（私は濃い芝居を見すぎてるのかな・・・、まぁこういうあっさりしたのも嫌いじゃない）。

ということで、この胸糞の悪い（誉め言葉）芝居を観終わった後、ニクの日ということで、モスバーガーに行き、にくにくにくバーガーを買って帰った。
今日はもう十二分にいろんなものを味わったので、にくにくにくバーガーは食べるのはやめとくヨ。

人生最大重量になってしまったので、ダイエットしてみる。
炭水化物食べない系で。
といっても、世の中にある小麦や米を無視できるわけもないのだし、砂糖のはいったものも食べたいわけなので、そこそこは食べている。
週末は特にプリンやらシュークリームやら、結局は食べてしまうのだが、それもおりこみ済みなダイエット。
そう、無理はしない。

基本は肉。あと野菜は生協で見つけた国産ほうれん草と、国産揚げナスの２つ。
いやぁ、冷凍揚げナスって見つけたときはすごいモン売ってるなぁと思ったけど、ナスがそこそこ好きなので買ってみたら、まさしく揚げナスだった。
これに麵つゆとかバシャっとかけて解凍すると、俄か「おしたし」にはなってくれる。
チーズなんかのっけてもうまい。

ということで、なんとか「なんちゃって野菜」を摂取しつつ、肉食（冷凍に栄養素は求めない・・・）

まぁしかし、痩せないこと、痩せないこと。半月で1Kgぐらいって、昔はもっと痩せたのになぁ・・・

京都に行ってきた。
仕事で。

で、仕事がひと段落したら昼前だったので、京都駅のSUZUYAでたまごサンドを買って帰ることにした。
カツサンドとたまごサンドの両方が入っているパックもあったが、今日はたまごサンドオンリーのものを買った。
京都駅をプラプラしてSUVACOに入ると、またそこに出汁巻きサンドがあったので、つい手を伸ばして買ってみた。

そして昼時。
まず出汁巻きサンドから食べてみる。出汁巻きサンドは実は初めて食べる。
出汁巻きたまご、マヨネーズ、パンだけのサンドで勝負しているようだが、
どうなんだろうな、まずくはないけど、もう少しアクセントがあるほうがいいのかな、などと感じた。
パンに挟む出汁巻きって、なかなか難しいんだろうな。
なので、からしマヨネーズのからしが多めに設定されていたりするんだ。
ここのはからし入ってんのか入ってないのかわかんなかった。
からしが多いといえば、天のやのたまごサンドだが、はやく食べてみたいものだ。
そもそもこの間東京に行ったときどうして食べなかったのか、いまさらながら後悔。まぁ、しかし大阪にも支店があるとのことなので、早いとこ行ってみよう。

脱線したが、次にSUZUYA。
こちらも、たまご、キュウリ、マヨネーズ、そしてパン、というサンド。
たまごは出汁巻きではなく、洋風のバターが聞いたオムレツといった感じの卵焼き。
もう、こちらは相変わらず「おいしゅうございます。」なもので、食べなれている感もあっておいしい。
バターたんまりの卵焼き（オムレツ）っていうのが、洋風卵焼きサンドの定番だわね。

そういえば、７月の京都駅は毎年祇園ばやしでうるさいのに、今日はすごく静かだった。
やめたん？
うるさいっていっておいて、なかったらなかったで、なんか文句いうのも何なんだけど、あったほうが７月の京都！って感じでいいかもね。午前中だったからかな。

7月に入った。
なんとなくモヤモヤしているのは、体重が自分史上最大値になったからか？
いや、そのせいで今年は食べる量を節制しようと思った途端大量に食べて、1週間かけて痩せた体重が元に戻ったからか？

それとも、仕事が思うようにいかないからか？
はてはて、Sim Cityなる鬱陶しいゲームに執着しているからか？

いや、答えは一つだ。
部屋の片づけが進まないことだ。
今年は何としても片付けよう。すべてを捨て去るのだ！！！
（きっとできないけど、でも今年中には半分ぐらい捨てよう。）

毎年クーラーをつけた日をメモっているのだが、忘れてたので書いておく。
ってか、日付は忘れたけど、たぶん6/23とか、24だったはず。

今年はまだそんなに暑くはなかったし、梅雨に入ったというのに、？？？というほど雨が降らず、と思ってたら、クーラーをつけた次の週ぐらいから梅雨らしい日々が続く天気予報。
湿気がきつくなりそうなので、もう早めにつけておけい！と、クーラーを掃除。
つけ始めたら、天気予報ほど雨は降らず。
まぁ、それでも、風呂上りはムシムシするし、ちょうどいいわと思うこの頃。

これからどんどん暑くなるのだなぁ、今年も。

仕事しながら、渡辺美里の「さくらの花の咲くころに」を聞いていた。
20代、30代、そして40代と、あの頃とおんなじ曲をリピートして聞いているから、久しぶり感はまったくないのだが、今日は、ふと、中学生だったか高校生だったかに感じた空気というか、匂いというか、なんかそんなものを思い出した。

音楽聞きながらホームの上で電車を待っている学生時代の私。
なんだろうな、こういう過去を思い出すのって大抵ホームの上だよなぁ・・・

渡辺美里って、力強いボーカル！って感じなんだけど、しっとりくる曲も多くて好きだ。
「悲しいね」とか「Believe」「White days」とか、なんとなく好きだ。

Blogの外観をちょいと変えてみた。また変えるかも。

さて、Windows10でExcel2010とか2013とかを使うようになって、Windows7で作ったExcelマクロのActiveXコントロール（コンボボックス）がうまく表示されないようになった。

これは困った・・・

グループ化すれば治る・・・って、治んない。

困りましたな・・・

ってことで、もうフォームコントロールに変えることにした。
面倒だわ・・・
ActiveXコントロールだと、リストの情報はマクロ上で設定すればいいのだが、フォームコントロールはリストの情報をセルに持たせて、そのセルとリンクを貼る・・・という厄介な手順を踏まなければならない。

ということで、ActiveSheet上にあるフォームコントロール「DLIST」のリストにしたい情報が、同じシートのセル「A2～A10」にあるとすると、

With ActiveSheet.Shapes("DLIST").ControlFormat
    .ListFillRange = "A2:A10"
    .LinkedCell = "B2"
End With

参照リストセルが別のシート(仮に「Sheet2」とする)にある場合、ListFillRange の設定をちょっと変える必要がある。

    .ListFillRange = "Sheet2!A2:A10"

でも、コントロールのフォントサイズの変え方がわかんない・・・
もうヤダ。

SQLiteでテーブルの一覧を取得する場合、コマンドの「.schema」を使う方法もあるが、面倒な時もあるので、以下のようにSELECT文を使う。

SELECT * FROM sqlite_master
WHERE type = 'table' 
ORDER BY name;

WHERE句の条件を外すと、オブジェクトの一覧になって、INDEXの情報なんかも取得できる。

さて、6月も中盤。
4月から3か月間かけて行う新人研修も終盤だが、どうも、今年はイマイチ。
新人がイマイチなのか、我々がイマイチなのか、どちらもダメなのか・・・

それはともかく、中学生や高校生が読めるような漢字を読めない人がいるのがまずウンザリ。
昨今、高等教育の無料化を声高に言う人がいるが、そもそも、初等・中等教育をしっかりしてほしい。
小学生でも読めそうな漢字も読めない大人って、社会に必要なのか？
初歩的な現代国語ぐらいちゃんと勉強させてほしいものだ。

Shell関数を使って別のexeを起動。

できんかった・・・・・・

なので調べた。

どうやら、カレントディレクトリをexeのある場所に指定しないとダメな様子。
で、ChDir関数を使ってカレントディレクトリの変更！ってやってみたけど、うまくできなかったので、別の方法でカレントディレクトリを変える。

以下は、Workbookと同じフォルダにあるtest.exeを実行してみるサンプル。
起動できたら、Excelを最小化させる

    Dim p   As String
    Dim res As Integer
    
    On Error Resume Next
    p = ThisWorkbook.Path
    If Right(p, 1) <> "\" Then p = p & "\"
    With CreateObject("WScript.Shell")
        .CurrentDirectory = p    // カレントディレクトリを変える
    End With
    res = Shell("test.exe", vbNormalFocus)
    If res <> 0 Then Application.WindowState = xlMinimized

@pagesからこっちのサーバに移設してから、3か月が経った。
未だに旧サーバも立ち上げっぱなしなのだが、こちらのサーバの投稿記事のリンク（とくに画像）が正しく貼れていなかったり、リンク切れだったりするのを順に直していこうと考えている。
WordPressは投稿するにはラクチンなのだが、いろいろカスタマイズするのが面倒だなぁと感じる。
5年前ぐらいだと、ちょうどPHPの仕事もしてたし、暇もあったし、やる気もあったから、面白半分でいじってたのだが、5年経つと人間こうも変わるものかというほど、あまりやる気が起きない。

まぁ、しばらくは記事の修正を行って、終わったらカスタマイズしてみるか・・・
（いつになることやら）

なんじゃコレ！
って、ジェローデルよ、大丈夫か？

しかし、よくOK出したなぁ・・・
オモロイ。

約1か月、何も投稿していないので、ゴールデンウィークを振り返ってみよう。

とりあえず、梅田に行った。
梅芸でやっているミュージカル『紳士のための愛と殺人の手引き』を観るためだ。
しかし、開演時間は17時。昼前に行ってぶらぶらしようともくろむ。

梅田に着いて、いつもの通りチケット屋にいく。
今日は阪急百貨店でやっているパンフェアというイベントに行くのだ！！
なので、第1ビルあたりで、阪急・阪神のおつりがでる商品券（整理券）を2万円分追加購入して、阪神百貨店に行く。

阪神？と思うかもしれないが、第1ビル→ディアモール→阪神→阪急といくのが、私の常なのだ。

阪神百貨店はB1フロアがまた少し変わったようだが、いつものとおりの品揃えなのと、催場のイベントが棚卸みたいなものだったので、あえて行く必要もないかと思い、スルーして阪急にいそいそと歩く。

【阪急うめだ】

開店直後で、阪急百貨店はそこそこ空いているように感じた。
空いていたので、B1フロアは後で行こうと考えたのだが、後々ちょっと後悔した。
というのは、「今日はUHA味覚糖のグミを買って帰ろう！」と心に決めていたのだが、15時ぐらいにショップの前に行った時にはすでにレモンと梅味しか残っていなかった。
できれば白桃、せめてベリーあたりを買いたかったのだが、もう２種類しか残っていないことにガックシ。
とりあえず１種類だけ味見にと思い、レモンを買って食べてみたのだが、これがまた微妙・・・。さすがに「残るだけはある」感がもう淀んでいる。

ということで、先に攻めるべきB1Fを攻めずにパンフェアの会場に行ったのだが、ここはここでしっかり行列ができている。

で、今日は行列に並ぶことにした。タマコサンドだ。
私は正直「タマコサンド」を知らなかったのだが、結構人が並んでたので「おいしいに相違ない！」と思って並んだ。
そう、典型的な「釣られる人」になり、そうして恐らくは「釣る人」にもなったのだろう。

レジ付近に近づくと、いろんな種類の玉子サンドがあることが分かったのだが、私はシンプルなタマコサンドとチキンと大葉のサンドの2種類を注文した。
時間が経ってから食べたからか、正直並ぶほどではなかった。
加えて、チキンと大葉のサンドにチキンが入っていなかった！？という衝撃！

　チキンってそれなりの大きさだよね？
　まさかクズみたいにタマゴと混ざってないよね？
　これかな？って思ったら漬物の味してたけど、あれじゃないよね？
　あれより大きいよね？　
　（正解を教えてください！）

あとは、茶美豚のサンドと、宇治で有名？な焼きそばパンを買って、恐竜を横目にB1Fまで降りていく。

茶美豚のサンドはおいしかった。そこそこ値が張る代物だったが、おいしかった。
焼きそばパンは、箸で食べる代物だった。
もはやパンは添え物だったが、もう少し具（例えばキャベツとか、肉も豚肉にするとか）が入ると、こちらもおいしいと思う。
まぁ、見た目から容易に分かるのだが、食べたらやはりもう小麦だらけで、小麦過ぎてブルーになる食べ物だった。

【阪急三番街】

そうして百貨店を後にして、三番街方面に進んでいく。
久しぶりに31のアイスを食べたかったので、HEP前の31にいってポッピングシャワーを注文。
しかし、弾かない飴が増量されただけの変哲もないアイスになっていたのはガックシ。
三番街で食事処を探したのだが、前から行きたかった洋食屋はいつものとおり行列。他も食べたいなぁと思うところは、待っている人がいたので、もう諦めてKIDDY LAND経由でLOFTへ。

【梅田ロフト】

開演時間まで、まだ時間がたっぷりあるのでロフトまで足を延ばす。
ロフトやハンズは大好きなショップだ。新しいものがいっぱいある、嬉しいショップだ。見ているだけで楽しめる。
で、見ているだけで何も買わなかった・・・アハハ

【梅芸】

あと30分で開場するということで、腹ごしらえ。16時前だが、まだ昼ご飯を食べていない。
B1Fにある中華料理屋で焼きそばを食べる。結構旨い。なんか味噌っぽいソースで今まで味わったことがない。具も大きい。
空いていたから、ちょっと侮っていたな。
今度から、この辺でどの店に入ろうか迷ったらここに食べに来よう。

【紳士のための愛と殺人の手引き】

モンティ役はウェンツ君だったが、正直出来栄えはいまいちだった。
芝居としては悪くないし、甘い声は素敵なのだが、発散している感に乏しい。なんとなくセーブしているのと、高音が意外にしんどそう。
舞台にはある程度のハッタリが必要なのだが、そこが足りないのだ。いい意味、いい人で、真面目なのだろう。
これからも舞台に立ってほしい人なので、頑張ってほしい。

宮澤エマさんは歌は上手でカワイイし、シルビアさんもカッコいい。２人がハモると、これがなかなかいいではないか！
そして市川正親さん。もうちょっと遊んで欲しいところだが、それでも十分面白かった。私が好きなのは、あのちょっとしか出ない大根役者のおばちゃんと慈善事業に邁進しているおばちゃん。
大根役者のおばちゃんが出てくるのはホントに一寸なので、かなり名残惜しい。これが、リピート欲を煽るんだよ、きっと・・・

このミュージカルで一番よかったのは、なんといってもアンサンブルだ。
さほどの人数ではないのに迫力があって、ハーモニーもよかった。
やはり、ミュージカルは歌！だと改めて感じる。
歌がよくて楽しい！面白い！って、それからやっぱりミュージカルって「終わりよければすべてよし！」なんだな。それが全部詰まったミュージカルだった。

やっぱし、もう１度観たいな。

【再び阪急うめだ】

もう１度阪急百貨店に立ち寄る。
今の時間だと、B2Fは割引している時間。
ウロチョロして、食料を買い足し、店を後にする。

あぁ、柏餅買うべきだったかなぁ・・・

私のゴールデンウィークはこれにて完了。月曜からはいつも通り。
って、いつも、いつも通りじゃないか？
ちなみに、やっぱり、柏餅は買うべきだった。

Windowsのログインユーザアカウントをとってきたい！ってのを調べてロジックに組み込んだはいいが、このブログ上にメモしてなかった。

まぁWindowsにログインするときに入力するアカウントのことなんだけど、環境変数関係の情報を取得するときは、Environ関数を使う。

Environ(“USERNAME”)

と、こんな感じ。

引数にどんなものがあるか、どんな戻り値になるか、デバッグして調べてみるときは、こんな風に。

Debug.Print "OS：" & Environ("OS")
Debug.Print "デフォルトドライブ：" & Environ("HOMEDRIVE")
Debug.Print "デフォルトユーザパス(ドライブなし)：" & Environ("HOMEPATH")
Debug.Print "tempフォルダパス：" & Environ("TEMP")
Debug.Print "ログインユーザID：" & Environ("USERNAME")
Debug.Print "systemフォルダパス：" & Environ("WINDIR")

Processing2.2.1で確認。

Processingで作成したexeを引数渡しで起動させる場合、というので調べてみたが、一番よさげなのは下記のURLの説明とサンプルだと思った。

uncertain world「Processingをコマンドラインから引数つきで実行する方法」

特に良いと感じたのは引数を「xxx=yyyy」という記載で渡すところ。

というのは、Processingで開発中のときにRUNするときと、Exportしてexe起動させるときでは、引数の数が違っている。
前者だと引数の最初に、「–sketch-path=XXXXX」が入っていて、後者だと入らない。
なので、引数の何番目を見て、ウンチャラカンチャラ・・・みたいなことはできない訳。

void setup() {
  for (String a : args) {
   String[] a2 = a.split("=");
   if (a2[0].trim().equals("para1")) {
    ・・・処理・・・  
   } else if (a2[0].trim().equals("para2")) {
    ・・・処理・・・  
   }
  }
}

と、こういう感じで、setupメソッド内に、引数取得処理を入れておく。

起動させるときは、

Prog.exe para1=1 para2=ABC

ってな感じでパラメータを渡してやればよい。

基本的にScripting.Dictionaryは、

Dim dic     As Object

Set dic = CreateObject("Scripting.Dictionary")
If Not dic.Exists(a) Then
  dic.Add a,b
End If

みたいに、Existsメソッドを利用することが多いのだが、
やはり１つずつ確認して処理を行うこともなくはない。

Dim i As Long
For i = 0 To dic.Count - 1 Step 1
    debug.print dic.Keys()(i) & "-" & dic.Item(i)
Next i

もしくは、

Dim v As Variant
For Each v In dic.Keys()
    debug.print CStr(v) & "-" & dic(v)
Next

で、いずれも、Keys() と両括弧を付けるところがポイント。

色々サイトを見てみたのだが、この()が抜けていたり、ItemがItemsになっていたりして、混乱している記載が多く、ここまでたどり着くのに英語のサイトまで見に行ってしまった。

非常にやっかいだが、もともとこういう使い方するようなオブジェクトではないのだろうから、仕方ない。

ちなみに削除するときはRemoveを使う。（Deleteではない）

Dim v As Variant
For Each v In dic.Keys()
    dic.Remove v
Next