Excel VBA質問箱 IV

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

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


29761 / 76732 ←次へ | 前へ→

【52246】Re:フォルダー内のファイル件数と名前の取得
お礼    - 07/11/3(土) 22:10 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
早速の回答有難うございます。
投稿後、本を調べていたら使えそうな例題があり、それと組み合わせてみたら
うまくいきました。

>スライドショーのように画像を次々と表示したいなら、
>シェイプを一々削除するのではなく、予め用意しておいた
>シェイプに表示するようにしてはいかがでしょう?

これから、ぱっせんじゃーさんのアドバイスの方法を試してみます。
因みに現在のコードを書いておきます(基本は前のままですが・・・)

Sub スライド練習2()

Dim FileName As String
Dim i As Integer, myFile As String
 
 i = 1
 
 FileName = Dir("C:\My Documents\EXCEL練習\写真\*.*")
 
 Do While FileName <> ""
  myFile = FileName
  
  Range("A1").Activate
  ActiveSheet.Pictures.Insert("C:\My Documents\EXCEL練習\写真\" & myFile).Select
   
    MsgBox "次を見る"
    ActiveSheet.Shapes(1).Delete
   
  '同じ条件での検索
  FileName = Dir()
  i = i + 1
 Loop

End Sub

有難うございました。

1 hits

【52242】フォルダー内のファイル件数と名前の取得 07/11/3(土) 20:23 質問
【52243】Re:フォルダー内のファイル件数と名前の取得 ぱっせんじゃー 07/11/3(土) 21:03 発言
【52246】Re:フォルダー内のファイル件数と名前の取得 07/11/3(土) 22:10 お礼

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