|
▼ぱっせんじゃー さん:
早速の回答有難うございます。
投稿後、本を調べていたら使えそうな例題があり、それと組み合わせてみたら
うまくいきました。
>スライドショーのように画像を次々と表示したいなら、
>シェイプを一々削除するのではなく、予め用意しておいた
>シェイプに表示するようにしてはいかがでしょう?
これから、ぱっせんじゃーさんのアドバイスの方法を試してみます。
因みに現在のコードを書いておきます(基本は前のままですが・・・)
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
有難うございました。
|
|