VBA - やするん＠Wiki

画像ファイルの一括取込み

挿入→図→ファイルから　挿入→図→ファイルから　挿入→図→ファイルから　・・・

って何十枚もやるのはかなりホネなので、
まとめて取り込みたいのだけれども悲しいかなそこはMS、
そんなかゆいところに手が届くつくりにはしてくれていません。

しょーがないので、マクロを書いてみました。

Private Sub CommandButton1_Click()
On Error Resume Next
Dim count As Integer
count = 0
For i = 1179 To 1201
ActiveSheet.Cells(count * 26 + 1, 1).Select
ActiveSheet.Pictures.Insert ( _
       "C:\Documents and Settings\yasrun\デスクトップ\images\Fedora11インストール\1\trim_small\WS00" & i & ".PNG" _
       )
count = count + 1
Next i
End Sub

ちょっくらFedora11のインストール資料を書いていて、
Winshotで撮った画像がいぱいあったのでこれ書きました。

……にしても、もうちょいあれなんとかならないかねぇ？
エクスプローラから複数毎選択して、ドラッグアンドドロップでぽとっと落とすと
どばばばばば・・・って貼ってくれて、しかも重ならずに並んでくれたりして。
それだったら資料作成ラクだなー。

★　★　★

最近のExcelはそのへん問題ないらしい…
考えたらOffice2000って登場してからもう13年も経ってるンだなぁ。

フォルダの存在チェック

   If Dir(strPathName, vbDirectory) = "" Then
       MsgBox "指定のフォルダは存在しません。", vbExclamation, cnsTitle
       Exit Sub
   End If

シートの標準列幅を5にし、クリアする

   ThisWorkbook.Sheets(sheetName).Select
   ThisWorkbook.Sheets(sheetName).StandardWidth = 5
   ThisWorkbook.Sheets(sheetName).Cells.ClearContents

セルの値を設定する

   ThisWorkbook.Sheets(sheetName).Cells(1, 1).value = "値"

他のブックをオープンする

   Dim oExcel As Excel.Application
   Dim wb, ct
   Dim sheetName As String
   Set oExcel = New Excel.Application
   Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & filename)
   ct = wb.Worksheets.count
   For k = 1 To ct
       sheetName = wb.Worksheets(k).Name
   Next