Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46231 / 76732 ←次へ | 前へ→

【35475】Re:複数の写真ファイルの挿入
発言  ぱっせんじゃー  - 06/3/6(月) 13:39 -

引用なし
パスワード
   画像ファル名の頭に"DSCF" と入っていると仮定します。

B2に
1
と入力すると、

DSCF0001〜DSCF0010

をシートに取込みます。


Private Sub Worksheet_Change(ByVal Target As Range)
Dim ファイル As String
Dim i As Long
 If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
 '全てのシェイプの削除
 ActiveSheet.DrawingObjects.Delete
  '画像ファイル名が連番でないとエラーになる
  For i = 1 To 10
    ファイル = "I:\雑誌\" & "DSCF" & Format(Target.Value + i - 1, "0000") & ".jpg"
    'シェイプ名を連番でつける
    ActiveSheet.Pictures.Insert(ファイル).Name = "画像" & i

    With ActiveSheet.Shapes("画像" & i)
    'i = 1だったら
    If i = 1 Then
      'シェイプのTopをD4セルのTopに設定
      .Top = ActiveSheet.Cells(4, 4).Top
    Else 'i>1だったら
      'シェイプのTopを前の画像の下に設定
      .Top = ActiveSheet.Shapes("画像" & i - 1).Top + ActiveSheet.Shapes("画像" & i - 1).Height
    End If
     'LeftをD4セルのLeftに設定
    .Left = ActiveSheet.Cells(4, 4).Left
    .LockAspectRatio = msoTrue
    .Height = 270#
    End With
  Next i
End Sub
0 hits

【35463】複数の写真ファイルの挿入 マイホーム 06/3/5(日) 14:59 質問
【35473】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/6(月) 10:40 発言
【35475】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/6(月) 13:39 発言
【35500】ぱっせんじゃーさんへ マイホーム 06/3/6(月) 22:24 質問
【35529】Re:複数の写真ファイルの挿入 Kein 06/3/7(火) 14:06 回答
【35573】Re:複数の写真ファイルの挿入 マイホーム 06/3/7(火) 21:32 質問
【35581】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/8(水) 7:56 発言
【35584】Re:複数の写真ファイルの挿入 ぱっせんじゃー 06/3/8(水) 8:23 発言
【35642】Re:複数の写真ファイルの挿入 マイホーム 06/3/8(水) 21:56 お礼
【35603】Re:複数の写真ファイルの挿入 Kein 06/3/8(水) 13:46 発言
【35643】Re:複数の写真ファイルの挿入 マイホーム 06/3/8(水) 21:59 お礼

46231 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free