[[20120607091726]]　『セルに画像を貼り付けサイズ調整』（T/k）　ページの最後に飛ぶ

『セルに画像を貼り付けサイズ調整』（T/k）

こんにちは。

エクセルシートに形の違う貼り付けスペース（セル結合）が全部で10か所あります。

画像を貼り付けた後そのシートをコピー、画像消去→新たな画像貼り付け

という作業をしています。

貼り付けスペースに貼り付けると、自動で画像のサイズをセルに合わせて変化させることは

できるのでしょうか？

また、貼り付け枚数はその都度変わることもあります。

どなたか教えてください。VBAは初心者です。バージョン2010です。

宜しくお願いします。

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

ここで拾ったのか他で拾ったのか忘れましたがこんなのを持ってました。
参考になりますか？(ottori)

ottori　さん

すいません。初心者なんで教えてもらっていいですか？

シートにコードコピペで使えないんですけど、どーしたらいいですか？

（T/k)

 どっかで見たコードだと思った。
[[20091219111757]]　『写真挿入の時に自動で任意の大きさに縮小、拡大す』（ヒロシ）

 いろんな人に使ってもらえている様でちょっと嬉しいですね。

 ただ、このコードは
 　先にセルを選択しておいて　画像を挿入
 するのですが、具体的に「画像を貼付」と言うのは
 どの様な操作なのでしょう？

 なお、画像の挿入をするので良い場合
 このコードは　2010では　画像がリンク貼付に成って仕舞います。
 問題が有る様なら変更が必要に成ります。

 (HANA)

HANAさん　　ありがとうございます

貼り付けというか、図をファイルから挿入しています。

もともといただいたエクセルデータにVBAが組み込まれていて、選択セルをダブルクリックすると

ファイル選択がひらき画像を挿入するようなものでしたが、わたしのエクセルからだと、画像がリンクになっていて

他のPCへ移した時に画像が見れなくなってしまっていたので、応急的に作業しているやりかたとしては、

適当なセルにシートで必要な画像をすべて一括で選択し挿入後、移動させサイズ変更、圧縮という手順でやってます。

（T/k)

 取り敢えず、こちらの過去ログを確認してみて下さい。
[[20120313090248]]　『マクロを使って写真挿入』(naoki）

 同じ（様な？）仕組みのコードが投稿されています。

 (HANA)

HANA　さん

ありがとうございます。

上記ので解決できそうです。

助かりましたー。

（T/k)

HANAさんフォロー有難う御座います。
　HANAさんや他の識者の方々のマクロは業務にかなり役立っています。
　有難う御座います。(ottori)

コメント返信：

[ 一覧(最新更新順) ]

[[20120607091726]] 『セルに画像を貼り付けサイズ調整』（T/k） ページの最後に飛ぶ

[[20120607091726]]　『セルに画像を貼り付けサイズ調整』（T/k）　ページの最後に飛ぶ