[[20130514091349]]　『写真を前面に表示させたい』（やまだ）　ページの最後に飛ぶ

『写真を前面に表示させたい』（やまだ）

Excel2003で、b2に写真を取り込むボタンを作成しました。
2003で動作させる時は、ボタンの上に写真がかぶさり、
印刷すれば写真だけが表示されますが、
2007でこのボタンを押して写真を取り込むと、
写真がボタンの下に貼りつくため、手作業で写真を最前面に
表示しなくてはなりません。

取り込む時か、取り込んだ後に写真を最前面にするには
どうしたら良いでしょうか。
下記のようなマクロを設定しています。
よろしくお願いします。

'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Private Sub CommandButton1_Click()

    Range("b2").Select
    Call Capset1
End Sub

'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Sub Capset1()

    Application.Dialogs(xlDialogInsertPicture).Show
    On Error Resume Next
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 250#
    Selection.ShapeRange.Width = 330#
    Selection.ShapeRange.IncrementLeft 1
    Selection.ShapeRange.IncrementTop 0
End Sub

'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

 Excel2007で試したら、確かにZOrderでも最前面にでませんねー
 マクロの起動をオートシェイプにしてはいかがでしょう？
 オートシェイプを作成し、右クリック、マクロの登録→Capset1
 コードは少しだけ変更して
Sub Capset1()

    Range("B2").Select
    Application.Dialogs(xlDialogInsertPicture).Show
    On Error Resume Next
    With Selection.ShapeRange
        .LockAspectRatio = msoTrue
        .Height = 250#
        .Width = 330#
        .IncrementLeft 1
        .IncrementTop 0
        .ZOrder = msoBringToFront
    End With
End Sub

 こんな感じでいかがですか？
 （稲葉）

ありがとうございます。。

やってみます。（やまだ）

コメント返信：

[ 一覧(最新更新順) ]

[[20130514091349]] 『写真を前面に表示させたい』（やまだ） ページの最後に飛ぶ

[[20130514091349]]　『写真を前面に表示させたい』（やまだ）　ページの最後に飛ぶ