Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49048 / 76736 ←次へ | 前へ→

【32612】Re:Wクリックで画像を挿入するには 再投稿
質問  よしお  - 05/12/19(月) 16:27 -

引用なし
パスワード
   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プロパティを取得できません。

画像を選択して「開く」ボタンをクリックした時にはエラーは
表示されず、画像は正しく挿入できています。

この場合、どの部分の見直しが必要でしょうか?

1 hits

【31027】Wクリックで画像を挿入するには よしお 05/11/9(水) 14:49 質問
【31030】Re:Wクリックで画像を挿入するには MARBIN 05/11/9(水) 15:23 回答
【31032】Re:Wクリックで画像を挿入するには Kein 05/11/9(水) 15:42 回答
【31034】Re:Wクリックで画像を挿入するには よしお 05/11/9(水) 16:19 質問
【31035】Re:Wクリックで画像を挿入するには Kein 05/11/9(水) 16:34 発言
【31039】Re:Wクリックで画像を挿入するには よしお 05/11/9(水) 19:21 お礼
【32599】Re:Wクリックで画像を挿入するには 再投稿 よしお 05/12/19(月) 9:05 質問
【32603】Re:Wクリックで画像を挿入するには 再投稿 Kein 05/12/19(月) 12:05 回答
【32604】Re:Wクリックで画像を挿入するには 再投稿 Kein 05/12/19(月) 12:07 発言
【32612】Re:Wクリックで画像を挿入するには 再投稿 よしお 05/12/19(月) 16:27 質問
【32614】Re:Wクリックで画像を挿入するには 再投稿 Kein 05/12/19(月) 16:46 回答
【32616】Re:Wクリックで画像を挿入するには 再投稿 よしお 05/12/19(月) 17:22 お礼

49048 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free