|
▼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
よろしくお願いします。
|
|