Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4551 / 13644 ツリー ←次へ | 前へ→

【55791】explorerでの縮小表示 08/5/19(月) 21:08 質問[未読]
【55792】Re:explorerでの縮小表示 もっとほっと 08/5/19(月) 21:25 発言[未読]
【55796】Re:explorerでの縮小表示 08/5/19(月) 23:14 発言[未読]
【55801】Re:explorerでの縮小表示 Abyss 08/5/20(火) 8:26 回答[未読]
【55802】Re:explorerでの縮小表示 もっとほっと 08/5/20(火) 8:33 発言[未読]
【55815】Re:explorerでの縮小表示 08/5/20(火) 12:59 お礼[未読]
【55817】Re:explorerでの縮小表示 Abyss 08/5/20(火) 14:15 回答[未読]
【55988】Re:explorerでの縮小表示 もっとほっと 08/5/28(水) 20:31 発言[未読]

【55791】explorerでの縮小表示
質問    - 08/5/19(月) 21:08 -

引用なし
パスワード
   宜しくお願いします。
下記コードでエクスプローラーを開いています。表示方法を「縮小表示」まで設定したいのですが、その方法が分りません。
もしかしたら、vbNormalFocusの部分かなと思い、他のvb〜に変えてみましたが違ったみたいでした。
どなたかご教授願います。

Set rg = Application.InputBox _
(prompt:="フォルダー名を指定して下さい" & Chr(13) & Chr(13) & "セル位置で指定", Type:=8)
    If Err.Number <> 0 Then Exit Sub
    
myStr = "C:\My Documents\写真\" & rg.Value
Call Shell("""C:\WINDOWS\EXPLORER.EXE"" " & myStr & "", vbNormalFocus)

【55792】Re:explorerでの縮小表示
発言  もっとほっと  - 08/5/19(月) 21:25 -

引用なし
パスワード
   他サイトですが。
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=31949&forum=7

【55796】Re:explorerでの縮小表示
発言    - 08/5/19(月) 23:14 -

引用なし
パスワード
   ▼もっとほっと さん:ご回答ありがとうございました。

>http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=31949&forum=7

教えて頂いたサイトを見てみました。私の質問そのものでしたが
質問者がVB6.0に限っての質問ということで、VBA初心者の私には理解することが出来ませんでした。
(私のレベルはBVとはVBAの元となったプログラム言語という程度です)
VBではなく、VBAでの書き方というのはあるのでしょうか?
再質問が失礼に当たれなければ良いのですが、宜しくお願いします。

【55801】Re:explorerでの縮小表示
回答  Abyss  - 08/5/20(火) 8:26 -

引用なし
パスワード
   こんにちわ。

リンク先でのちゃっぴさんの方法を応用すれば
よいと思います。

   ':

myStr = "C:\My Documents\写真\" & rg.Value

With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
  .Navigate myStr
  .Document.CurrentViewMode = 5&
  .Visible = True
End With

【55802】Re:explorerでの縮小表示
発言  もっとほっと  - 08/5/20(火) 8:33 -

引用なし
パスワード
   おはようございます。
Abyssさんご指摘のとおり、

2006-07-11 06:21のちゃっぴさんの
"お手軽な方法を見つけたので。"が参考になります。
もちろんVBAでもそのまま使えます。
※参照設定が必要です。

ちゃっぴさんの↓に
OpenExplorer(〜)

↓のような感じで引数を渡してやることでも可能です。

Sub test()
Dim fol As String
 fol = "C:\Documents and Settings\hoge" '表示したいフォルダのパス
 Call OpenExplorer(fol, 5) '表示形式/縮小版=5
End Sub

【55815】Re:explorerでの縮小表示
お礼    - 08/5/20(火) 12:59 -

引用なし
パスワード
   ▼もっとほっと さん、abyssさん、ありがとうございました。

お二人のアドバイスを理解できるレベルにない自分にガッカリしております。
ちゃっぴさんのコードは昨日試してみたのですが
マクロ一覧のダイアログボックスが表示されたので、「これって何?」と思った程度です。このまま質問を続けても、1から10まで教わる状態になりそうなので撤退させて頂きます。

お二人のアドバイス結果は下記の通りです。
abyssさんそのままコピペした結果
エラー 432
「オートメーション中の操作中にファイル名またはクラス名を見つけられませんでした。」が表示されました。

もっとほっとさん
ちゃっぴさんのコードにもっとほっとのSub test()を追加、参照設定をふたつ設定した結果
Explorerは開いたが縮小表示はされていませんでした。
更に、終了しようとしたら
エラー 438
「オブジェクトはこのプロパティまたはメソッドをサポートしてません」が表示
ただし、エラー部分のコードの黄色表示はされてません。
1行づつ、コメントアウトで調べたら
' objFolderView.CurrentViewMode = viewMode
の部分で発生することはわかりました。

結果は以上です。後は自分であれこれやってみますが、ここでの質問は撤退させて頂きます。お二人様ありがとうございました。

【55817】Re:explorerでの縮小表示
回答  Abyss  - 08/5/20(火) 14:15 -

引用なし
パスワード
   岳 さん
こんにちは。


>エラー 432
>「オートメーション中の操作中にファイル名またはクラス名を見つけられませんで>した。」が表示されました。

OSのバージョンを教えてください。

【55988】Re:explorerでの縮小表示
発言  もっとほっと  - 08/5/28(水) 20:31 -

引用なし
パスワード
   VBSの場合はどうするんだろうと思って調べてみたら、
↓の
2008年5月26日 (月)
IE7 で Shell と IE が分離されました
http://scripting.cocolog-nifty.com/blog/
がヒットしました。
参考まで。

4551 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free