[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『写真挿入の時に自動で任意の大きさに縮小、拡大するには?』(ヒロシ)
挿入→図→ファイルから ・・・ と写真を挿入した時に自動でセルに合うサイズ
で挿入はできないのでしょうか?
Excel2003、WindowsXP
この中にご希望のようなものはないでしょうか。
(川野鮎太郎)
過去ログ内にも有るとは思いますが 作っていたので載せておきます。
'------ 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)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.