Excel VBA質問箱 IV

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

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


37844 / 76732 ←次へ | 前へ→

【44035】Re:写真の台帳(アルバム)の作り方
質問  ぺが  - 06/11/1(水) 14:40 -

引用なし
パスワード
   ▼Kein さん:
>ダブルクリックイベントを使って、結合したセルの中心部分に画像ファイルを
>挿入する。という質問に答えたログ↓があります。参考にして下さい。
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=43492;id=excel

ご親切にありがとうございます。お礼ついでといっては何なのですが、
99%初心者なので、どの行にどのように活かしていいのか分かりません(^^ゞ
私が実行したコードに組み込めるのであれば、どこの行にどの部分を組み込むのか
教えてください。確かに中心部に画像ファイルを挿入できるのは理想的です。
どうしても左側によってしまうので、実は悩んでいたところです。

もう一つ聞いてもいいですか?
Keinさんに教えていただく前の状態でいいますと、
サイズの大きい写真は一度、そのサイズのまま(大きいまま)画面に表示され、
それからセルの高さにあわせるので、画面上は見苦しいです。
VBAにおいては何と言うのか分かりませんが、
ディスプレイをオフにした状態で、画面上では写真が大きいまま表示される
部分は省略され、いきなりセルのサイズの写真が表示されるという方法はありますか?
やっぱり DISPOFF とかいうんでしょうか・・・。

ちなみに今現在使用しているコードはこんな感じです。
Private Sub CommandButton1_Click()

  Dim f As String
   f = Application.GetOpenFilename("(*.jpg),*.jpg")
   If f <> "False" Then
     Range("B4").Select
     MsgBox f
     ActiveSheet.Pictures.Insert(f).Select
     Selection.ShapeRange.LockAspectRatio = msoTrue
     Selection.ShapeRange.Height = Range("B4").Offset(1).Top - Range("B4").Top
   Else
     MsgBox "キャンセル"
     Exit Sub
   End If

End Sub

よろしくお願いします。

1 hits

【43892】写真の台帳(アルバム)の作り方 ぺが 06/10/28(土) 16:28 質問
【43893】Re:写真の台帳(アルバム)の作り方 ぱっせんじゃー 06/10/28(土) 17:07 発言
【43910】Re:写真の台帳(アルバム)の作り方 Mk 06/10/29(日) 9:28 発言
【43911】Re:写真の台帳(アルバム)の作り方 ぱっせんじゃー 06/10/29(日) 9:53 発言
【43934】Re:写真の台帳(アルバム)の作り方 ぺが 06/10/30(月) 9:41 お礼
【43972】Re:写真の台帳(アルバム)の作り方 ぺが 06/10/31(火) 13:55 お礼
【43974】Re:写真の台帳(アルバム)の作り方 Kein 06/10/31(火) 15:09 発言
【44035】Re:写真の台帳(アルバム)の作り方 ぺが 06/11/1(水) 14:40 質問

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