1

VBAを使用して、MS EXCELからMS WORDにExcelテーブルと画像をコピーしようとしています。Excel から送信されたテーブルと画像を Word で参照する方法を見つけるのに苦労していました。長い調査の後、私は table に対する非常に単純な答えに出くわしました:

Range("C1:D8").Copy
Dim WDDoc As Word.Document
Dim table1 As Word.Table

Dim para As Paragraph
Set para = WDDoc.Paragraphs.Add

para.Range.PasteSpecial Link:=False, DataType:=wdPasteRTF,
Placement:=wdInLine,
DisplayAsIcon:=False

set table1 = WDDoc.Tables(1) ' 貼り付けられたテーブルの参照を Word で取得

table1.Shading.BackgroundPatternColor = wdColorBlueGray

私がやったこと：
Excelから画像をコピーして、Word Docに貼り付けるだけです。パラ。

何が必要ですか？
n枚の画像をコピーした後、その画像を単語で参照できないため、貼り付けた画像を編集またはサイズ変更できません。

4

1 に答える 1

0

これを試して

With ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count)
    .Height = 314.95 ' or whatever
End With

これは、画像が「テキストに沿って」(実際に行ったように) 貼り付けられ、文書内の最後の (一番下の) インライン画像であることを前提としています。

于 2011-06-20T16:18:10.220 に答える