2

2つのテキストボックスと1つの画像（ロゴとして）を含むヘッダーと、本文にいくつかのテーブル、テキスト、画像を含むMSWordファイルがあります。
このVBAコードでヘッダー（ロゴ）の画像を削除しようとしています： 

Dim tmp As Shape
Dim dShape As Shape

For Each tmp In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
    If tmp.Type = msoPicture Then
        Set dShape = tmp
    End If
Next
dShape.Delete

最初のテストでは正しく機能しました！その後、ヘッダー画像の代わりにボディ画像を削除します!!!

4

1 に答える 1

0

Shapeまず削除したいものを選択する必要があるようです!!
どうしてだと思うのかわからないshape1.Delete：見てみよう、うーん...やったほうがいいと思うshape2.Deleteので、やる。
これが機能する方法： 

dShape.Select
dShape.Delete

VBAはばかです（プラットフォームと同じように）！

于 2013-01-04T20:34:53.963 に答える