挿入写真

Question

1. 私はこのコードを持っている：

   Sub InsertPhotos_Click() 
       Range("Photo1").Select 
       ActiveSheet.Pictures.Insert("U:\Trial\1.jpg").Select 
       Selection.ShapeRange.Height = 151.2 
       Selection.ShapeRange.IncrementLeft 27 
       Selection.ShapeRange.IncrementTop 3 
   End Sub 
   

私は、ワイルドカードを使用する方法がわからない、ファイル名1-XXXXに名前を付けることができるようにする必要がありますが、と。ファイル名が1のとき、コードは私が望むことをします。どんな助けも素晴らしいでしょう、ありがとう！

Answer 1

これは機能しますか？

Sub InsertPhotos_Click() 
Dim PhotoString As String 
    Range("Photo1").Select 
    PhotoString = Application.InputBox("Type text for picture", "Get Picture", Type:=2) 
    If PhotoString <> "" Then ' 1. If PhotoString <> "" 
    ActiveSheet.Pictures.Insert("U:\Trial\1-" & PhotoString & ".jpg").Select 
    Selection.ShapeRange.Height = 151.2 
    Selection.ShapeRange.IncrementLeft 27 
    Selection.ShapeRange.IncrementTop 3 
    End If ' 1. If PhotoString <> "" 
End Sub