エクセル２０１０ 挿入画像の圧縮 VBA

質問

お世話になります。
エクセル２０１０を使用しています。写真帳を作成しダブルクリックすれば写真が挿入されるようVBAにて作成しましたが、写真の解像度が高いので挿入するたびに画像が圧縮するようにVBAを組みたいのですが、どなたかご教示ください。
具体的には一同挿入した画像を一度コピーし、再度貼り付ける・・・という動作かなと考えているのですが、マクロの記憶では記録されず・・・困っております。

現在の写真帳の構文は
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

Dim myF As Variant
Dim mySp As Object
Dim myAD1 As String
Dim myAD2 As String
Dim myHH As Double
Dim myWW As Double
Dim myHH2 As Double
Dim myWW2 As Double

'挿入のセルを指定

If Application.Intersect(Target, Range("d6,d23,d40")) Is Nothing Then Exit Sub
Cancel = True
Application.ScreenUpdating = False

End If

'写真挿入

Next
myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif")
If myPic = False Then
MsgBox "画像を選択してください"

Exit Sub

End If

Set myRange = Target 'このセル範囲に収まるように画像を縮小する
Application.ScreenUpdating = False
With ActiveSheet.Shapes.AddPicture(myPic, False, True, myRange.Left, myRange.Top, myRange.Width, myRange.Height)

rX = 0.85
rY = 1

If rX > rY Then
.Height = .Height * rY
Else
.Width = .Width * rX

End If
.Left = .Left + (myRange.Width - .Width) / 2 '写真を横方向の中央に配置
.Top = .Top + (myRange.Height - .Height) / 2 '写真を縦方向に中央に配置
.ZOrder msoSendToBack '最背面へ移動

End With
Application.ScreenUpdating = True
Cancel = True

End Sub

上記に.CUT　などを書き足せばよいのか・・・
→エラーばかりで動かなったので。。
　こちらに質問することにしました。
どうぞ、よろしくお願いします。

回答No.1

imogasi

本件の内容の質問に、長々とVBAのコードを載せる必要はないだろう。読者回答者に無駄なものを読ませて、やさしくない．関係ない部分だろう。
ーー
まず、エクセルの操作でするとすれば、どうすればよいのか、エクセルではその操作は存在するのか、しないのか、勉強してみるとよいと思う。
たとえば
https://support.office.com/ja-jp/article/%25E5%259B%25B3%25E3%2581%25AE%25E3%2583%2595%25E3%2582%25A1%25E3%2582%25A4%25E3%2583%25AB-%25E3%2582%25B5%25E3%2582%25A4%25E3%2582%25BA%25E3%2582%2592%25E7%25B8%25AE%25E5%25B0%258F%25E3%2581%2599%25E3%2582%258B-8db7211c-d958-457c-babd-194109eb9535?ui=ja-JP&rs=ja-JP&ad=JP&fromAR=1
を参考にして。
Googleででも「エクセル２０１０　画像　圧縮」ででも、検索しましたか。
もし、質問者がやりたいことのエクセルのワークシートに対する操作が、ないということは、VBAでもできないだろう。
あくまで、VBAでできるのは、対応した、エクセルの手による操作があるものに限られると考えてよいと思う（例外も少数あるが大原則でしょう）。（VBは別ですが）
もしエクセルで操作があれば、マクロの記録を取る状態にして、その操作をしてみれば、コードがわかる場合が多い。
ーー
画像をエクセルのシートにShapes.AddPictureする前の段階で、画像処理ソフトを使って
思うことの処理を済ませてしまうのが、本筋ではないかな。だんだんエクセルでも、貼りつける（張り付けた）画像に対して、いろいろできるように、バージョンアップにつれて、内容的に、進化されているが、基本は専門ソフトに任せるではないかな。