[[20140422214341]]　『画像の形式について』（ちま）　ページの最後に飛ぶ

『画像の形式について』（ちま）

Sub 画像()

    Dim i1 As Long
    Dim rng As Object
    Dim gazou As String
    gazou = ActiveWorkbook.Path & "1.gif"
    Application.ScreenUpdating = False
    For i1 = 0 To Val(Range("a1").Value) - 1
        Set rng = Range("b1").Offset(0, i1)
        ActiveSheet.Shapes.AddPicture gazou, _
             msoFalse, msoTrue, rng.Left, rng.Top, 60, 60
    Next i1
  End Sub
図の形式がgifだけではなく複数の形式に対応するには，拡張子のところをどのように記述すればよいのでしょうか

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

質問内容が理解できていませんが、あてずっぽうで。

 Sub test()
    Dim gazou As String

    gazou = Application.GetOpenFilename _
        ("画像ファイル,*.gif;*.jpg;*.bmp", , "画像を選んで下さい")

    If gazou = "False" Then
        MsgBox "選択されませんでした"
    Else
        MsgBox "選択：" & gazou
    End If

 End Sub

（マナ） 2014/04/24(木) 23:45

コメント返信：

[ 一覧(最新更新順) ]

[[20140422214341]] 『画像の形式について』（ちま） ページの最後に飛ぶ

[[20140422214341]]　『画像の形式について』（ちま）　ページの最後に飛ぶ