Excel VBA質問箱 IV

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

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


49052 / 76732 ←次へ | 前へ→

【32603】Re:Wクリックで画像を挿入するには 再投稿
回答  Kein  - 05/12/19(月) 12:05 -

引用なし
パスワード
   そのコードは、GetOpenFilename を使って「画像の保存先フォルダーから任意の
ファイルを選んで、マクロを実行しているブックへ挿入する」という形になっています。
従って
>画像を挿入したxlsファイルをメールに添付
というのは適切ではありません。そのような場合、送信先のPCには当然 Excel が
インストールされているという前提になるのだから、マクロをエクスポートした
コードのみのファイル(拡張子が bas とか cls になっている)と共に、画像ファイル
(bmp や jpgなど)を添付して送ります。そしてメール本文に、マクロファイルは
ExcelのVBEでインポートし、画像ファイルは「通常エクセルを開いているフォルダー」
へ保存してもらうよう、説明を付けておきます。
それらのことが出来るなら、のコードを

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
  Dim Fname As String
   
  Cancel = True
  With Application
    ChDir .DefaultFilePath
    Fname = .GetOpenFilename("JPEG形式(*.jpg), *.jpg", , _
   "画像を選択して下さい")
  End With
  If Fname = "False" Then Exit Sub
  With Target
    ActiveSheet.Shapes.AddPicture(Filename:=Fname, _
    Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
  End With
End Sub

というように修正してから、エクスポートすれば良いでしょう。

0 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 お礼

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