エクセル

フォルダ内の画像を張り付ける

フォルダ内の画像を一定間隔でExcelのシートに貼り付ける
マクロ
Sub 取込()
  Set fs = Application.FileSearch
  With fs
    .LookIn = "G:\画像"
    .Filename = "*.jpg"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "一括取込フォルダに" & .FoundFiles.Count & " 個のファイルがあります。"
 
        If .FoundFiles.Count > 18 Then
           MsgBox "一括取込内のファイルは18個以下にしてください。"
           Exit Sub
        End If
        
        RTN = MsgBox(.FoundFiles.Count & " 個のファイルを取り込みますか?", vbYesNo)
        If RTN = 7 Then
           Exit Sub
        End If
        
        Cells(5, 2).Select
        For i = 1 To .FoundFiles.Count
            ActiveSheet.Pictures.Insert(.FoundFiles(i)).Select
            Selection.ShapeRange.LockAspectRatio = msoTrue
    
            DEF_HEIGHT = 241
            DEF_WIDTH = 323
    
            Selection.ShapeRange.HEIGHT = DEF_HEIGHT
            Selection.ShapeRange.WIDTH = DEF_WIDTH

            NowCol = ActiveCell.Column
            NowRow = ActiveCell.Row
    
            If NowRow = 107 Then
                Cells(5, NowCol + 11).Select
            Else
                If NowRow = 45 Then
                    NowRow = NowRow + 2
                End If
                Cells(NowRow + 20, NowCol).Select
            End If
        Next i
    Else
        MsgBox ("一括取込フォルダにファイルがありません。")
    End If
End With

Cells(5, 10).Select

End Sub

      Document-Folder          一覧
HP-UX
HULFT
JAVA
JP1
JavaScript
Linux
MAC
PHP
Perl
Python
Ruby
SOA
Solaris
Unix全般
Windows
XML
エクセル
スタイルシート
セキュリティー
データベース
ネットワーク
パソコン
ブラウザ
プログラム構文
仮想化
          RSS-Folder
ニュース
   アットマーク・アイティ(@IT)
   シンクイット(ThinkIT)
   インターネットコム
   インターネットウォッチ
   日経IT-Pro
   日経パソコン
   CNET Japan
   ZD-NetJapan
   MYCOM
   RBB-Today
ベンダー
   日本IBM
   日本HP
   サンマイクロシステムズ
   NEC
   富士通
   日立
ソフトウェア
   マイクロソフト
   トレンドマイクロ
   オラクル
   サイボウズ
   Mozilla
   野村総合研究所
   (その他ソフトウェア企業)
更新履歴 一覧
 07/08 PERF
プログラム構文
 07/07 PERF
プログラム構文
 06/25 オブジェクトプログラミング2
Perl>サンプル
 07/12 クローン作成
仮想化>vCenter
 07/12 vyatta設定
ネットワーク>vyatta
 07/12 vyattaインストール
ネットワーク>vyatta
 07/12 リポジトリサーバ
Linux>サーバ構築
 07/05 VMwareのインストール
仮想化>VMware
 07/05 PXEブート
仮想化>KVM
 07/01 DHCPでのPXEブート
仮想化>KVM
 06/27 qcow2仮想DISK作成
仮想化>KVM
 06/13 NWの設定
仮想化>VMwareEsxi
 06/13 IPアドレスの変更
仮想化>VMwareEsxi
 06/12 自動ssh
Unix全般>シェル>Bash
 06/12 diffプログラミング
Python
Google