フォルダから、1.jpg、2jpgをそれぞれ選択してセル内に調整するというマクロ自動で取りました。
下記のD:\xlsx\tesutoの部分をその都度フォルダを選択するようにしたいのですがどうしたらいいでしょうか。
※写真のファイル名は、1.jpg、2jpg固定です。
ActiveSheet.Pictures.Insert("D:\xlsx\tesuto\output_1.jpg").Select
========================
Sub Macro6()
'
' Macro6 Macro
'
'
Range("B11:F41").Select
ActiveSheet.Pictures.Insert("D:\xlsx\tesuto\output_1.jpg").Select
Selection.ShapeRange.IncrementLeft 17.25
Selection.ShapeRange.IncrementTop 15.75
Range("G11:K41").Select
ActiveSheet.Pictures.Insert("D:\xlsx\tesuto\output_2.jpg").Select
Selection.ShapeRange.IncrementLeft 19.5
Selection.ShapeRange.IncrementTop 14.25
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
ファイルダイアログでフォルダーを選択するなどが考えられます。
指定されたフォルダーのパスに対して、固定のファイル名を連結すれば、求めるファイルへのパスが作成でkぢると思います。
以下は、ダイアログからファイルパスを作成する簡単な例です。
Sub Sample()
Dim folderPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then folderPath = .SelectedItems(1)
End With
If folderPath = "" Then Exit Sub
MsgBox folderPath & "\output_1.jpg" '←作成されたファイルのパス
End Sub
No.2
- 回答日時:
こんなので、動きませんかね?古いExcel(2010)では動くのですが・・・。
ちなみに「セル内に調整する」とのことですが、提示されているコードのどの部分が、それにあたるのでしょうか?
理解できなかったので、後学のために補足して頂けるとありがたいです。
Sub sample()
Application.Dialogs(xlDialogInsertPicture).Show
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) excelVBAについて。 8 2022/12/11 13:47
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) excelVBAについて。 4 2022/11/21 16:15
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
バッチファイル 二つ上のディ...
-
VBS パスに変数を入れたい
-
ExcelVBAの使い方 ¥の使い方...
-
EXCEL(VBA)で指定フォルダ内の...
-
xcopyコマンドの進行状況を表示...
-
VBAでパワーシェルを実行したい...
-
A列に記載されているフォルダ...
-
初心者powershellのPS1ファイル...
-
【VB.NET】App.configにファイ...
-
リストボックスにファイル名の...
-
指定したフォルダ内の最新ファ...
-
【VBA】ExcelマクロでCSVファイ...
-
Excel 相対パス
-
Eclipse
-
C#でのProcess.Startと変数path
-
Access2000のテーブルにPDFファ...
-
SaveAsの保存先について
-
エクセルのマクロで特定フォル...
-
Excel VBAでテキストファイルを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチファイル 二つ上のディ...
-
エクセルvbaでdocuworksprinter...
-
エクセルVBAで一つ上の階層...
-
Excel 相対パス
-
【VB.NET】App.configにファイ...
-
xcopyコマンドの進行状況を表示...
-
【VBA】ExcelマクロでCSVファイ...
-
EXCEL(VBA)で指定フォルダ内の...
-
エクセルのマクロで特定フォル...
-
パスワード保護されたExcelファ...
-
ExcelVBAの使い方 ¥の使い方...
-
開いているファイルを削除し、...
-
SaveAsの保存先について
-
初心者powershellのPS1ファイル...
-
VBA★PDFをPDFアプリで印刷し...
-
fopenでのパス指定
-
【Excel VBA】Power Qurry のソ...
-
指定したフォルダ内の最新ファ...
-
A列に記載されているフォルダ...
-
ExcelのVBAで上書き保存を確...
おすすめ情報