Word VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

812 / 897

←次へ　｜　前へ→


	【89】Re:拡張メタファイルの貼り付け

きみこ - 04/4/14(水) 14:46 -


	引用なし

	パスワード

▼きみこさん：
試してみたのですが、うまくいきませんでした。
下のマクロを組んで図を一度にいくつか貼り付けました。
そうすると文書の前面に貼り付けられます。背面（文字列の後ろへ移動）にするには
どうすればいいのでしょうか？
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
　 Sub myShapeBehindText()
　　　　Dim myShape As Shape
　　'
　　For Each myShape In ActiveDocument.Shapes
　　myShape.ZOrder msoSendBehindText
　　Next myShape
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
このマクロをどこかに入れればいいのでしょうか？
わたしはWord2000を使っています。
どなたか御教示いただけると幸いです。
よろしくお願い致します。

' Macro2 Macro
' 記録日 2004/04/14 記録者 KIMIKO
'
　　Selection.InlineShapes.AddPicture FileName:="C:\WORK\test\test1\EMF2\1.emf", _
　　　　 LinkToFile:=False, SaveWithDocument:=True
　　Selection.TypeBackspace
　　Selection.InlineShapes(1).Fill.Visible = msoFalse
　　Selection.InlineShapes(1).Fill.Transparency = 0#
　　Selection.InlineShapes(1).Line.Weight = 0.75
　　Selection.InlineShapes(1).Line.Transparency = 0#
　　Selection.InlineShapes(1).Line.Visible = msoFalse
　　Selection.InlineShapes(1).LockAspectRatio = msoTrue
　　Selection.InlineShapes(1).Height = 269.04
　　Selection.InlineShapes(1).Width = 486.75
　　Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
　　Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
　　Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
　　Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
　　Selection.InlineShapes(1).PictureFormat.CropRight = 0#
　　Selection.InlineShapes(1).PictureFormat.CropTop = 0#
　　Selection.MoveRight Unit:=wdCharacter, Count:=1
　　Selection.TypeParagraph
　　Selection.TypeParagraph
　　Selection.InsertBreak Type:=wdPageBreak

　　Selection.InlineShapes.AddPicture FileName:="C:\WORK\test\test1\EMF2\2.emf", _
　　　　 LinkToFile:=False, SaveWithDocument:=True
　　Selection.TypeBackspace
　　　　　・
　　　　　・
　　　　　・
　　　　　（ＥＭＦのファイル名を変えていくつか貼り付ける）
　　
End Sub

2,689 hits

▼

【86】拡張メタファイルの貼り付け きみこ 04/3/23(火) 10:35