[[20090723112609]]　『写真の貼り付け』（かごしま）　ページの最後に飛ぶ

『写真の貼り付け』（かごしま）

下記のようなマクロで写真帳を作成しています。

（Ａ４に写真を３枚づつ貼り付け）

エクセル２００７で作成していると、写真を貼り付けた後にコマンドボタンが写真の上に残ってしまいます。

エクセル２００３では写真挿入後はコマンドボタンは消えているのですが、何故でしょうか？

Sub miko_test1()

  Dim c As Range, cm As Range
  Application.ScreenUpdating = False
  For Each c In Selection
    Set cm = c.MergeArea
    If c.Address = cm.Item(1).Address Then
      If Application.Dialogs(xlDialogInsertPicture).Show = False Then Exit Sub
      With Selection
        .Left = cm.Left
        .Top = cm.Top
        .Height = cm.Height
        .Width = cm.Width
      End With
    End If
  Next
  Set cm = Nothing
  Application.ScreenUpdating = True
End Sub

 Sub miko_test1() 
  Dim c As Range, cm As Range
  Application.ScreenUpdating = False
  For Each c In Selection
    Set cm = c.MergeArea
    If c.Address = cm.Item(1).Address Then
      If Application.Dialogs(xlDialogInsertPicture).Show = False Then Exit Sub
      With Selection
        .Left = cm.Left
        .Top = cm.Top
        .Height = cm.Height
        .Width = cm.Width
        .ShapeRange.ZOrder msoBringToFront   'これを追加してみては？
     End With
    End If
  Next
  Set cm = Nothing
  Application.ScreenUpdating = True
 End Sub

 ichinose

コメント返信：

[ 一覧(最新更新順) ]

[[20090723112609]] 『写真の貼り付け』（かごしま） ページの最後に飛ぶ

[[20090723112609]]　『写真の貼り付け』（かごしま）　ページの最後に飛ぶ