No.3ベストアンサー
- 回答日時:
こんばんは。
https://oshiete.goo.ne.jp/qa/1182506.html
の例を拝見しました。
ファイルの複数選択に、ひとつのファイル選択ダイアログで行っていますので、
マクロには選択したファイルの順番は受け取れていません。
選んだ順番に貼り付けたいのでしたが、
①ひとつだけ選択できるダイアログでファイルを選択
②それを配列に格納
上記を繰り返し行い、
①のダイアログでキャンセルボタンが押されたら、ファイルの挿入処理を行うような
感じに修正されたら、その後の処理に影響ないと思います。
Option Explicit
Sub InsertPictures()
Dim fname() As String
Dim selectName As Variant
Dim i As Long
Dim Pict As Picture
ReDim fname(0)
selectName = Application.GetOpenFilename("JPGファイル,*.jpg", MultiSelect:=False)
'キャンセルボタン押下時
If selectName = False Then Exit Sub
'ファイル選択時
fname(0) = selectName
Do
selectName = Application.GetOpenFilename("JPGファイル,*.jpg", MultiSelect:=False)
'キャンセルボタン押下時、ファイル選択を終了してファイル挿入処理へ
If selectName = False Then Exit Do
'配列をリサイズ
ReDim Preserve fname(UBound(fname) + 1)
'選択されたファイル名を配列へ格納
fname(UBound(fname)) = selectName
Loop
これ以降は、ソートの処理を行わず、その次の処理につなげていただければできそうです。
No.2
- 回答日時:
こんにちは。
>2→3→1のように選んだ順に貼り付けたいのに
ソートプログラムを入れているからです。
>'配列に格納されたファイル名をソート
> BubbleSort fName, True
これを抜けばよいはずです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- Word(ワード) テキストデータのPDFをWordで開くとテキストが図として認識されてしまう 3 2023/01/24 11:38
- Visual Basic(VBA) PowerPoint VBA で画像の鮮明度を変更する方法がわかりません 2 2023/03/24 13:34
- Excel(エクセル) EXCELマクロでandroidタブレットから取りんだJPEGファイルをうまくセルに貼り付けられない 2 2022/07/31 15:03
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) Excelでの並べ替えについて 5 2022/11/26 22:18
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
複数の画像ファイルを挿入したい
Excel(エクセル)
-
任意フォルダから画像をすべてエクセルの指定マスに貼り付けをしたい
Visual Basic(VBA)
-
VBAで選択した画像を貼り付けたい
Excel(エクセル)
-
-
4
エクセル マクロ写真帳に一括で写真を張り付けたいです。
Visual Basic(VBA)
-
5
ファイル名「1.jpg ~10.jpg~」のソート
Visual Basic(VBA)
-
6
[ EXCEL VBA ] 図形を読み込む順番を制御するには?
Visual Basic(VBA)
-
7
エクセルマクロでシート内にある画像のみを選択する
Excel(エクセル)
-
8
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
9
Excel VBAでセル内の画像を選択したい
Excel(エクセル)
-
10
【EXCEL VBA】ダブルクリックでセルのサイズに合わせて画像を挿入に機能を追加したいです。
Visual Basic(VBA)
-
11
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
-
12
Excelに複数の写真を挿入する場合…
Excel(エクセル)
-
13
エクセル マクロで画像を指定したコマへ移動する
Excel(エクセル)
-
14
ファイルを複数選択した時のファイルの順番
Visual Basic(VBA)
-
15
エクセル 複数画像挿入 マクロ
Excel(エクセル)
-
16
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
-
17
Excel VBA マクロ 画像の貼り付け
Visual Basic(VBA)
-
18
Excel 画像貼り付けのVBAについて
Excel(エクセル)
-
19
エクセルVBAで縦向きの画像の挿入・回転
Excel(エクセル)
-
20
画像を削除したい(VBA)
Word(ワード)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
Teraマクロで日付ディレクトリ...
-
EXCELファイルが開けない(-_-;)
-
エクセル 一括リンクの解除
-
VLOOKUP関数とネットワークに置...
-
検索結果をテキスト吐き出し
-
EXCELのVBAで画像を選んだ順に...
-
ファイルを並び替えるときの「...
-
EXCELのハイパーリンクの編集を...
-
Excel VBAで自動的にハイパーリ...
-
ファイル名を置き換えるやり方...
-
複数のHTMLファイルの中身にお...
-
エディタで効率的な切り出し方法
-
エクセル:フォルダ内のファイ...
-
エクセルを選択して開き印刷す...
-
VB6.0で、APIのファイルを開く...
-
EXCELで複数のファイルから抽出
-
ローマ字→カタカナへ変換(エク...
-
スクロールしてもボタンを常に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでセルに入力したパ...
-
excelに貼り付けた数値が勝手に...
-
【マクロ】シート名を取得する...
-
Teraマクロで日付ディレクトリ...
-
EXCELのVBAで画像を選んだ順に...
-
VLOOKUP関数とネットワークに置...
-
ファイルを並び替えるときの「...
-
エクセル 一括リンクの解除
-
EXCELのマクロを使って、テキス...
-
EXCELで複数のファイルから抽出
-
excel INDIRECT 他ファイル参照
-
エクセルからスキャナVBAで連動...
-
ハイパーリンクで前回値をひき...
-
エクセルファイルから指定した...
-
CSVで文字化けしてしまうのを直...
-
PDF ファイルが開けません。
-
Excelでリンクを使用すると#N/A...
-
=CELL("filename")で取得したフ...
-
エクセル:フォルダ内のファイ...
-
Excelvbaで同一フォルダー内の...
おすすめ情報
すいません文字制限でコード全ては無理です・・・
一応ここ
https://oshiete.goo.ne.jp/qa/1182506.html
を元に自分が使いやすいように手を加えました。
残念ながらソートプログラムは関係ないみたいです。