[[20200517003147]]　『「セルを結合せずに写真を上下に貼り付け」[初心氏x（初心者福）　ページの最後に飛ぶ

『「セルを結合せずに写真を上下に貼り付け」[初心者福]　について』（初心者福）

投稿
[[20200504002524]] 『セルを結合せずに写真を上下に貼り付け』（初心者福）　
について...

通行人さんに教えて頂き
写真を上下に貼り付ける事ができました。

再質問です。
このコードに
画像が入っているフォルダを指定して開く事が
出来るでしょうか？

画像は共有サーバーの中に入っています
"\\○○共有\商品名\○○○\商品写真\"
フォルダの中には画像以外のものも入っています

教えて頂けると嬉しいです。
よろしくお願いします。

Sub 画像挿入()

    Dim Filenames As Variant
    Dim i As Long
    Dim iWidth As Single
    Dim iHeight As Single

    ActiveSheet.Range("B15").Select

    With ActiveCell.Resize(35, 41)
        iWidth = .Width
        iHeight = .Height
    End With

    Filenames = Application.GetOpenFilename( _
        FileFilter:="画像ファイル(*.jpg;*.jpeg;*.gif;*.bmp;*.png),*.jpg;*.jpeg;*.gif;*.bmp;*.png", _
        Title:="図の挿入(複数選択可）", MultiSelect:=True)
    If Not IsArray(Filenames) Then Exit Sub

    Application.ScreenUpdating = False

    With CreateObject("System.Collections.ArrayList")
        For i = LBound(Filenames) To UBound(Filenames)
            .Add Filenames(i)
        Next i
        .Sort

        For i = 0 To .Count - 1
            With ActiveSheet.Shapes.AddPicture(.Item(i), msoFalse, msoTrue, _
                 ActiveCell.Left, _
                 ActiveCell.Offset(i * 36, 0).Top, _
                iWidth, _
                iHeight)
            End With
        Next i

        Application.ScreenUpdating = True
        MsgBox .Count & "枚の画像を挿入しました", vbInformation
    End With
End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

こんなことですか

１）フォルダ選択
２）フォルダ内の画像（拡張子は？）のみを抽出し
３）シートに縦に並べて貼り付け

現在のマクロは、画像ファイル名で並べ替えを行っていますが
それは必要なのでしょうか。

（マナ） 2020/05/17(日) 08:59

 >画像は共有サーバーの中に入っています "\\○○共有\商品名\○○○\商品写真\"

    With ActiveCell.Resize(35, 41)
        iWidth = .Width
        iHeight = .Height
    End With

    With CreateObject("WScript.Shell")
        .CurrentDirectory = ""\\○○共有\商品名\○○○\商品写真\"
    End With

    Filenames = Application.GetOpenFilename( _

（通行人） 2020/05/17(日) 10:32

マナさんへ

返信ありがとうございます。

１）フォルダ選択
２）フォルダ内の画像（拡張子は？）のみを抽出し
３）シートに縦に並べて貼り付け

現在のマクロは、画像ファイル名で並べ替えを行っていますが
それは必要なのでしょうか。

共有サーバーにはいろんなフォルダがあり
商品名フォルダもたくさんあり
その中に写真画像が何千枚と保存されています。
画像貼り付け時に商品ファルダを1回で開きたいと思いまして
質問しました。

（初心者福） 2020/05/17(日) 15:45

通行人さんへ

ありがとうござます!!
上手く開く事が出来ました!!
本当にありがとうございました。

（初心者福） 2020/05/17(日) 15:46

コメント返信：

[ 一覧(最新更新順) ]

[[20200517003147]] 『「セルを結合せずに写真を上下に貼り付け」[初心氏x（初心者福） ページの最後に飛ぶ

[[20200517003147]]　『「セルを結合せずに写真を上下に貼り付け」[初心氏x（初心者福）　ページの最後に飛ぶ