Sub PIC_Paste() ' PIC_Paste関数 ' MS-Word97・98用画像貼り付けプログラム ' ' ワードを使っていてボタン一つで画像を手軽に文書に貼れたらと思ったことはありませんか。 ' 特に罫線のなかに貼りつけるのは手数がかかって面倒です。 ' また貼りつけた画像の高さが等しいと美しく見えます。 ' ' 原作者 古口正巳 [koguchi@sf.airnet.ne.jp]1998.07 V 0.9 ' '  このプログラムはコード改変可能なフリーフェアであり、いかなる条件でも正しく動作する事を保証してません。 '  各自のリスクで実行して下さい。このプログラムを利用していかなるトラブルが発生しても関知しません。 ' ' ユーザー定義メニューに登録すると便利です Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False Const DEF_HIGHT = 60 '貼りつける画像の高さを指定します(ポイント) With ActiveDocument With .InlineShapes(.InlineShapes.Count) .Width = .Width * DEF_HIGHT / .Height '縦横比率を維持します .Height = DEF_HIGHT End With End With End Sub