[[20140304204728]]　『セルに画像をワンクリックで挿入』（ひでぼー）　ページの最後に飛ぶ

『セルに画像をワンクリックで挿入』（ひでぼー）

Excelのセルに画像を挿入したいのですが、ワンクリックでマイピクチャーのフォルダーが開き、画像を選んで挿入ボタンを押すとそのセルの大きさに合わせた画像が挿入されるやり方を以前何処かで見ました。
どなたか教えてください。

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

 こういうことでしょうか。

 'ワンクリックで
 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim f As Variant

    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "ファイル選択"

 'マイピクチャーのフォルダーが開き、
        .InitialFileName = CreateObject("Shell.Application").Namespace(&H27&).Self.Path

 '画像を選んで挿入ボタンを押すと
        If .Show = -1 Then

 'そのセルの大きさに合わせた画像が挿入される
            ActiveSheet.Shapes.AddPicture Filename:=.SelectedItems(1), _
                LinkToFile:=True, SaveWithDocument:=False, _
                Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height
        End If
    End With
 End Sub

（Mook） 2014/03/04(火) 23:54

コメント返信：

[ 一覧(最新更新順) ]

[[20140304204728]] 『セルに画像をワンクリックで挿入』（ひでぼー） ページの最後に飛ぶ

[[20140304204728]]　『セルに画像をワンクリックで挿入』（ひでぼー）　ページの最後に飛ぶ