フォルダを選択して写真をシート上に表示するマクロを探すことができました。
LUは,
http://programlife.jugem.jp/?eid=48
できれぱセルの値のフルパスを参照して写真を表示したいと思いいろいろ試して見ましたがうまくいきません。最後のフォルダを選択しなけれぱならないようです。
変更前
' フォルダ選択画面を表示
Set shell = CreateObject("Shell.Application")
Set myPath = shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:¥")
変更後
"C:¥") ⇒ Sheets("データ").Cells(4, 1).Value へ変更
フルパス = Sheets("データ").Cells(4, 1).Value = C:\Users\***\Desktop\写真
' フォルダ選択画面を表示
Set shell = CreateObject("Shell.Application")
Set myPath = shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, Sheets("データ").Cells(4, 1).Value )
どうかよろしくお願いします。
No.2ベストアンサー
- 回答日時:
>フルパス = Sheets("データ").Cells(4, 1).Value = C:\Users\***\Desktop\写真
意味不明です、Cells(4, 1).Value Valueは数値の値でパスは文字列ですね
Sheets("データ").Cells(4, 1)="C:\Users\***\Desktop\写真"
これならパスをCells(4,1)に入れることができますがなぜセルにパスを入れるのか解りません、直接パスを指定して表示すれば済むと思います。
データ型の基本知識の理解をもう少し深めて下さい、この場合マクロの自動記録で実際にやりたいことをマクロで記録してそのマクロの不要な部分を削除したり変えたりしたほうが早く理解も解決もすると思います。
No.1
- 回答日時:
Cells(4, 1).Value を ”C:¥”にして動く?
動いたなら
Cells(4, 1).Value を ”C:”にして動く?
動かないなら
> フルパス = Sheets("データ").Cells(4, 1).Value = C:\Users\***\Desktop\写真
が怪しい。
この回答への補足
Set myPath = shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:¥")
上記を変更して全てsheetのセル値のフルパスで写真を表示させることができないでしょうか。(フォルダを選択せずに)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- その他(プログラミング・Web制作) セレクトボックスで選択された値をコントローラーで使用したい 2 2022/07/26 16:41
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
VBAからファイルをセル入力から開く方法
Excel(エクセル)
-
-
4
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
5
パスをセルから取得し保存 VBA
その他(Microsoft Office)
-
6
セルに入力されたパスでフォルダーを開く
Excel(エクセル)
-
7
エクセルVBA セルに表示されたテキストと同じ名前のファイルを開きたい
Excel(エクセル)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
10
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
11
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
12
EXCELのセルにフォルダのパスの情報を
Excel(エクセル)
-
13
エクセルのセルに入力されているファイルを開く
Access(アクセス)
-
14
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
15
セルにフルパスを入力してPDFファイルを開きたい
Excel(エクセル)
-
16
excel VBA 特定の文字列を含むフォルダを開く方法
Excel(エクセル)
-
17
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
-
18
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
19
VBA フォルダ名に特定の文字を含むフォルダを別フォルダにコピーするコードを教えて下さい
Visual Basic(VBA)
-
20
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォトショップ→イラストレータ...
-
MSアクセスのjpgファイル表示
-
オセロ(リバーシ)の棋譜のパ...
-
cseのociw32.dllロードエラーに...
-
DVDにデータのバックアップ。深...
-
セルにフルパスを入力してPDFフ...
-
ニュー速VIPで使われるパスワー...
-
WindowsとMacではパスが違うの...
-
USJのスタジオパスとエクスプレ...
-
よみうりランドの入場料金につ...
-
白飛びした(明るい)写真をiPhon...
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
visual studio でインデントを...
-
「無」と「未」の使い方
-
Photoshop で8bit /チャンネル ...
-
VBAでファイルを開くときにファ...
-
Wordでドロップダウンリスト連動
-
ipadのpagesでMS明朝を使う方法...
-
gimpで色交換できません。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessマクロで出てくるコマン...
-
ExcelVBA ショートカットファイ...
-
ActiveWorkbook.Pathの一つ上
-
フォルダ選択でなくフルパスを...
-
Axfcのダウンロードのパスワード
-
RmDirでフォルダが削除できない...
-
Accessのフォームで商品の画像...
-
USJのスタジオパスとエクスプレ...
-
Photoshop cc 正円形のパス線が...
-
新幹線について
-
ヘルプマークって印刷した物を...
-
ディズニーランドのDPAとPPの取...
-
HEWのワークスペースが開けない
-
オセロ(リバーシ)の棋譜のパ...
-
ケーブルテレビをパソコンで見...
-
ニュー速VIPで使われるパスワー...
-
MSアクセスのjpgファイル表示
-
セルにフルパスを入力してPDFフ...
-
今月はご希望通りのグレードま...
-
EXCELファイルのカレントフォル...
おすすめ情報