出版社に原稿を入稿するときに使えそうな便利な画像挿入ツール

Option Explicit


Sub 画像操作表示()
  画像操作.Show
End Sub

Sub 画像挿入()

Dim mydoc As Document
Dim gfilename As String
Dim FSO As Object
Dim selfile As String
Dim pic

Set mydoc = ActiveDocument
Set FSO = CreateObject("Scripting.FileSystemObject")

With Application.FileDialog(msoFileDialogFilePicker)
    With .Filters
        .Clear
        .Add "*.png", "*.jpg"
    End With
    .AllowMultiSelect = True
    If .Show Then
        selfile = .SelectedItems(1)
        With Selection.Range
         .InsertBefore Text:=vbCr
         .InlineShapes.AddPicture FileName:=selfile
        End With
        Selection.Collapse Direction:=wdCollapseStart
        Selection.InsertCaption Label:="Figure", _
        Title:="(file:" & selfile & ")", Position:=wdCaptionPositionBelow
        Selection.Hyperlinks.Add Address:=selfile, _
        Anchor:=Selection.Range, TextToDisplay:="link"
        Selection.InsertBefore Text:=vbLf
    End If
End With
End Sub
Sub トリミング()
  Application.Activate
      SendKeys "%"
      SendKeys "jp"
      SendKeys "v"
      SendKeys "c"
End Sub

Sub 吹き出し()
  Dim shp As Shape
  Application.Activate
  Set shp = _
    ActiveDocument _
        .Shapes.AddShape( _
            Type:=msoShapeRectangularCallout, _
            Left:=100, Top:=100, _
            Width:=100, Height:=100)
  shp.Fill.ForeColor.RGB = RGB(255, 255, 200)
End Sub

Sub 強調枠線()
  Dim shp As Shape
  Application.Activate
  Set shp = _
    ActiveDocument _
        .Shapes.AddShape( _
            Type:=msoShapeRectangle, _
            Left:=20, Top:=20, _
            Width:=100, Height:=100)
  shp.Fill.Visible = msoFalse
  With shp.Line
    .ForeColor.RGB = RGB(255, 0, 0)
    .Weight = 6
    .Style = msoLineSingle
    .DashStyle = msoLineSysDot
  End With
End Sub