WORDではクイックアクセスツールバーに設定している「画像の挿入」をクリックすると、ピクチャのダイアログが開き
画像を挿入できるようになっているが、自分はデスクトップからの場合が圧倒的に多いので、挿入先を変えられない
ものかと思っていた。
紹介先URL : https://okwave.jp/qa/q6040417.html
ここにマクロによる挿入先の変更が紹介されていた。
Sub 画像の挿入()
Dim i, j
i = ActiveDocument.InlineShapes.Count + 1
j = ActiveDocument.Shapes.Count + 1
Dialogs(wdDialogInsertPicture).Show
On Error Resume Next
ActiveDocument.InlineShapes(i).ConvertToShape
ActiveDocument.Shapes(j).Select
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.ZOrder 4
End Sub
これによりアイコンをクリックすると、ピクチャではなくデスクトップのダイアログが表示されるようになった。
|
|