Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27621 / 76736 ←次へ | 前へ→

【54433】Re:ExcelデータをWordに貼り付け
発言  りん E-MAIL  - 08/3/12(水) 18:59 -

引用なし
パスワード
   MJ12 さん、こんばんわ。

>複数の場合、Shapes(1), Shapes(2), Shapes(3), ・・・ となると思います。
>Shapes(2) を削除した場合、内部的に連番が繰り下がると確認(試しにそのような状況でマクロを実行した結果です)したのですが、あっているでしょうか?
>問題なければ、
>.ActiveDocument.Shapes(.ActiveDocument.Shapes.Count)
>で大丈夫だと思っているのですが・・・
大丈夫だと思います。

(略)

  With ObjWord
   .Documents(OpenWord).Activate
   '
   .Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
              Placement:=wdFloatOverText, DisplayAsIcon:=False
   'アクティブな文書に「最後に追加された図形」
   With .ActiveDocument
     With.Shapes(.Shapes.Count)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
       .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
       .Left = wdShapeCenter
       .Top = ObjWord.MillimetersToPoints(0)
     End With
   End With
   Application.CutCopyMode = False

(略)

気になるようでしたら、既存のShape一覧をコピペ前に取得して、それと比較する方がいいかもしれませんね。

それから、
  .ScaleWidth 1#, True
  .ScaleHeight 1#, True
この2行は等倍なので不要だと思います。

0 hits

【54411】ExcelデータをWordに貼り付け MJ12 08/3/12(水) 8:27 質問
【54416】Re:ExcelデータをWordに貼り付け りん 08/3/12(水) 13:36 回答
【54432】Re:ExcelデータをWordに貼り付け MJ12 08/3/12(水) 17:47 質問
【54433】Re:ExcelデータをWordに貼り付け りん 08/3/12(水) 18:59 発言
【54434】Re:ExcelデータをWordに貼り付け MJ12 08/3/12(水) 19:12 お礼

27621 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free