VB.netからエクセルへ画像貼り付け時に画像を最背面に

てぃん 2013-09-25 01:45:14 No: 148226

VB2010よりExcel(2000)へ画像を自動で貼り付けるプログラムがあります。
エクセルの写真を貼り付ける場所に図形描画のテキストボックスが事前に配置されており、写真を貼り付けた際、テキストボックスより前面に張り付いてしまいます。
宣言部は一部省略しますが以下の方法で画像は貼り付けできます。
  Dim xlPictures As Excel.Pictures
  xlPictures = DirectCast(xlSheet.Pictures, Excel.Pictures)
  Dim xlPicture As Excel.Picture
  xlPicture = DirectCast(xlPictures.Insert(画像ファイル名), Excel.Picture)

'A1セルに貼り付け
  xlPicture.Left = DirectCast(xlSheet.Cells("A1"), Excel.Range).Left + 2
  xlPicture.Top = DirectCast(xlSheet.Cells("A1"),Excel.Range).Top +
  貼り付け時にテキストボックスより背面に貼り付けることはできないでし  ょうか？

てぃん 2013-09-25 04:07:04 No: 148227

追加で、なのですが、エクセルに写真を貼り付けた後に、修正があり、一旦写真を全て削除してから貼り付け直す事も可能でしょうか？

てぃん 2013-09-25 17:43:05 No: 148228

自己解決しました。
oShape.ZOrder(Office.MsoZOrderCmd.msoBringToFront)