|
Keinさま
前回に続き、この度もレス頂きましてありがとう御座いました。
やはり事前に受信者との申合わせが必要になってしまいますね。
そこで、手探りながらですが以下の様に記述してみました。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim WDT, HGT, CTP, CLF, PWD, PHT, FName
Cancel = True
WDT = Selection.Width
HGT = Selection.Height
CTP = Selection.Top
CLF = Selection.Left
FName = Application.GetOpenFilename
ActiveSheet.Pictures.Insert(FName).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
PWD = Selection.ShapeRange.Width
PHT = Selection.ShapeRange.Height
Select Case PHT / PWD
Case Is >= HGT / WDT
Selection.ShapeRange.Height = HGT
Selection.ShapeRange.Left = CLF + (WDT - Selection.ShapeRange.Width) / 2
Case Else
Selection.ShapeRange.Width = WDT
Selection.ShapeRange.Top = CTP + (HGT - Selection.ShapeRange.Height) / 2
End Select
End Sub
これですと挿入した画像も送信できるみたいです。
しかし、セルをWクリック後に表示される画像選択のダイアログボックスで
「キャンセル」ボタンをクリックすると以下のエラーが発生します。
実行時エラー'1004':
PicturesクラスのInsertプロパティを取得できません。
画像を選択して「開く」ボタンをクリックした時にはエラーは
表示されず、画像は正しく挿入できています。
この場合、どの部分の見直しが必要でしょうか?
|
|