[[20091219111757]]　『写真挿入の時に自動で任意の大きさに縮小、拡大す』（ヒロシ）　ページの最後に飛ぶ

『写真挿入の時に自動で任意の大きさに縮小、拡大するには？』（ヒロシ）

挿入→図→ﾌｧｲﾙから　　･･･　と写真を挿入した時に自動でセルに合うサイズ
で挿入はできないのでしょうか？

Excel2003、WindowsXP

 この中にご希望のようなものはないでしょうか。

http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%E5%86%99%E7%9C%9F%E3%80%80%E8%87%AA%E5%8B%95%E3%80%80%E5%A4%A7%E3%81%8D%E3%81%95&perpage=10&attr=@uri+STRINC+kazuwiki&order=@uri+STRD&clip=-1&navi=0

 （川野鮎太郎）

 過去ログ内にも有るとは思いますが
 作っていたので載せておきます。

 '------
Sub 選択セルに合わせて()
    Dim myFileName As String
    If TypeName(Selection) <> "Range" Then
        MsgBox "セルを選択して実行して下さい。"
        Exit Sub
    End If
    myFileName = Application.GetOpenFilename( _
                    FileFilter:="画像 ,*.jpg; *.gif; *.bmp", MultiSelect:=False)
    If myFileName <> "False" Then
        With ActiveSheet.Pictures.Insert(myFileName)
            .Left = Selection.Left
            .Top = Selection.Top
            .Width = Selection.Width
            .Height = Selection.Height
        End With
    End If
End Sub
 '------

 その他「任意の大きさに取り込みたい」と言うご質問時に、良く紹介される方法として
 オートシェイプでご希望の大きさの枠を作っておいて
 背景として表示させる方法が有ると思います。

 (HANA)

すみません
↓これはどうやって使うんですか？

 '------
Sub 選択セルに合わせて()
    Dim myFileName As String
    If TypeName(Selection) <> "Range" Then
        MsgBox "セルを選択して実行して下さい。"
        Exit Sub
    End If
    myFileName = Application.GetOpenFilename( _
                    FileFilter:="画像 ,*.jpg; *.gif; *.bmp", MultiSelect:=False)
    If myFileName <> "False" Then
        With ActiveSheet.Pictures.Insert(myFileName)
            .Left = Selection.Left
            .Top = Selection.Top
            .Width = Selection.Width
            .Height = Selection.Height
        End With
    End If
End Sub
 '------

 Alt + [F11]を押して、VBEを立ち上げます。
 VBEのメニュー・挿入(I)→標準モジュール(M)を選んで
 挿入した標準モジュール（白いページが開くと思います）に貼り付けて下さい。

 エクセルに戻って、画像を貼り付けたいセル（或いはセル範囲）を選択。
 Alt + [F8]を押して、((選択セルに合わせて))を選んで実行。

 ≪注≫ファイルは一つずつしか選べません。

 (HANA)

使いやすくなりました。有難う御座います。

コメント返信：

[ 一覧(最新更新順) ]

[[20091219111757]] 『写真挿入の時に自動で任意の大きさに縮小、拡大す』（ヒロシ） ページの最後に飛ぶ

[[20091219111757]]　『写真挿入の時に自動で任意の大きさに縮小、拡大す』（ヒロシ）　ページの最後に飛ぶ