Sub Tiff() ' .NETライブラリのクラスをインスタンス化 Dim wp As New WindowsFormsAppTiffTo1L_CL.TiffTo1L ' .NETクラスのメソッドを呼び出す ' Set wp = ClassLibraryCS_itext7Margin.Margin Dim html As String Dim col As Long Dim dpi As Single col = 8 dpi = 200# html = wp.OriginDest("C:\hoge\sample.tiff", "TIFF", col, "C:\hoge\sample2.tiff", dpi) MsgBox html End Sub