[[20121002152405]] 『マクロの実行』(あっくん) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロの実行』(あっくん)

いつもお世話になってます。
エクセル2010、ウィンドウズ7を使用してます。
以前教えていただいたマクロです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True
    With ActiveSheet.Pictures.Insert(Application.GetOpenFilename)
        .Height = .Height * 0.69
        .Width = .Width * 0.69
    End With
 End Sub

エクセルで作った写真帳で、写真を張りたいある特定のセルをクリックしたら「図をファイルから挿入」のコマンドで貼り付けたいです。

上記マクロは写真のフォルダを移動したり、ファイル名を変更すればエクセル上で表示できないので新しいマクロを教えていただきたいです。

(あっくん)


 あまり、いい例じゃないかもしれないけど
[[20120313090248]] 『マクロを使って写真挿入』(naoki)
このスレの最後のコード、Shapes.AddPicture をつかうとリンク貼付を回避できる。

 (ぶらっと)

 ActiveSheet.Pictures.Insert がお好みなら以下のような方法も。

    With ActiveSheet.Pictures.Insert(Application.GetOpenFilename)
        .Height = .Height * 0.69
        .Width = .Width * 0.69
        .CopyPicture
        .Delete
    End With
    ActiveSheet.Paste

 追記)最初のレスで紹介したスレで、偉そうに「2007からリンク貼付になった」などと
  「解説」してるけど、あれは間違い。2007までは問題がなかったけど2010でリンク貼付にかわった。

 (ぶらっと)

ぶらっとさん

20120313090248で
本当にありがとうございました。
これで悩みが解決しました(^_^)v

(あっくん)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.