// Visual C# プログラムに書く内容         

        // fB = コピー元ファイルフルパス指定
　　　　// fW = コピー元ファイル名(パスなし)
        // fS = コピー元シート名
　　　　// fR = コピー元レンジ("A1:H13"のような形)

        // tB = コピー先ファイルフルパス指定
　　　　// tW = コピー先ファイル名(パスなし)
        // tS = コピー先シート名
　　　　// tR = コピー先レンジ("T5"のような形)

        public void CallMacro(string fB, string fW, string fS, string fR,
                              string tB, string tW, string tS, string tR)
        {
            // カレントディレクトリを取得する
            string stCurrentDir = System.IO.Directory.GetCurrentDirectory();
            // Excel.Application の新しいインスタンスを生成する
            var xlApp = new Microsoft.Office.Interop.Excel.Application();
            Microsoft.Office.Interop.Excel.Workbooks xlBooks;

            // xlApplication から WorkBooks を取得する
            // 既存の Excel ブックを開く
            xlBooks = xlApp.Workbooks;
            xlBooks.Open(stCurrentDir + @"\CopyMacro.xlsm");

            // Excel を表示する
            xlApp.Visible = true;
            //fExcelApp.Visible = true;
            //tExcelApp.Visible = true;

            // マクロを実行する
            // 標準モジュール内のCopyRange 実行
            xlApp.Run("CopyMacro.xlsm!CopyRange", fB,fW,fS,fR,tB,tW,tS,tR);

            //fExcelApp.Visible = false;
            //tExcelApp.Visible = false;

            // Excel を終了する
            xlApp.Quit();
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks);
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp);
        }


' Excel VBA [ CopyMacro.xlsm ] の標準モジュールに書く内容

Option Explicit

Private Declare Function AccessibleChildren Lib "oleacc" _
    (ByVal paccContainer As Office.IAccessible, ByVal iChildStart As Long, _
     ByVal cChildren As Long, ByRef rgvarChildren As Any, ByRef pcObtained As Long) As Long　_

Private Const CHILDID_SELF = 0&
Private Const ROLE_SYSTEM_LIST = &H21
Private Const ROLE_SYSTEM_PROPERTYPAGE = &H26
Private Const ROLE_SYSTEM_PUSHBUTTON = &H2B
Private Const ROLE_SYSTEM_WINDOW = &H9

Private Sub PasteOfficeClipboardItem(ByVal Num As Long)
'Officeクリップボードに登録されているアイテムを貼り付け
  Dim Acc As Office.IAccessible
  
  Set Acc = GetAccOfficeClipboardList
  If Acc Is Nothing Then Exit Sub
  If (Acc.accChildCount = 1) And (InStr(Acc.accName(1&), "クリップボードは空")) Then
    MsgBox "クリップボードは空です。" & vbCrLf & "処理を中止します。", vbCritical + vbSystemModal
    Exit Sub
  End If
  If Num > Acc.accChildCount Then
    MsgBox "指定した番号は無効です。" & vbCrLf & "処理を中止します。", vbCritical + vbSystemModal
    Exit Sub
  End If
  Acc.accDoDefaultAction Num
  Set Acc = Nothing
End Sub

Private Sub DoActionOfficeClipboard(ByVal AccObjName As String)
'Officeクリップボードコマンド実行
  Dim Acc As Office.IAccessible
  Dim Count As Long
  Dim i As Long
  
  Select Case AccObjName
    Case "すべて貼り付け", "すべてクリア"
    Case Else
      MsgBox "指定したコマンドには対応していません。" & vbCrLf &  _
      "「すべて貼り付け」か「すべてクリア」のどちらかを指定してください。", _
         vbCritical + vbSystemModal 
      Exit Sub
  End Select
  
  Application.CommandBars("Office Clipboard").Visible = True
  DoEvents
  Set Acc = Application.CommandBars("Office Clipboard")
  Set Acc = GetAcc(Acc, "Collect and Paste 2.0", ROLE_SYSTEM_WINDOW)
  Set Acc = GetAcc(Acc, "Collect and Paste 2.0", ROLE_SYSTEM_PROPERTYPAGE)
  Count = Acc.accChildCount
  If Count > 0& Then
    For i = 0 To Count
      If (Acc.accName(i) = AccObjName) And (Acc.accRole(i) = ROLE_SYSTEM_PUSHBUTTON) Then
        Acc.accDoDefaultAction i
        Exit For
      End If
    Next
  End If
  Set Acc = Nothing
End Sub

Private Sub GetOfficeClipboardList(ByRef ItemList As Variant)
'Officeクリップボードリスト取得
  Dim Acc As Office.IAccessible
  Dim Count As Long
  Dim v() As Variant
  Dim i As Long
  
  Set Acc = GetAccOfficeClipboardList
  If Acc Is Nothing Then Exit Sub
  Count = Acc.accChildCount
  If (Count = 1) And (InStr(Acc.accName(1&), "クリップボードは空")) Then
    MsgBox "クリップボードは空です。" & vbCrLf & "処理を中止します。", _
            vbCritical + vbSystemModal
    Exit Sub
  End If
  ReDim v(Count - 1)
  For i = 1 To Count
    v(i - 1) = Acc.accName(i)
  Next
  Set Acc = Nothing
  ItemList = v
End Sub

Private Function GetAccOfficeClipboardList() As Office.IAccessible
'Officeクリップボードリスト(Accessibleオブジェクト)取得
  Dim Acc As Office.IAccessible
  
  Application.CommandBars("Office Clipboard").Visible = True
  DoEvents
  Set Acc = Application.CommandBars("Office Clipboard")
  Set Acc = GetAcc(Acc, "Collect and Paste 2.0", ROLE_SYSTEM_WINDOW)
  Set Acc = GetAcc(Acc, "Collect and Paste 2.0", ROLE_SYSTEM_PROPERTYPAGE)
  Set Acc = GetAcc(Acc, "クリップボード", ROLE_SYSTEM_LIST)
  Set GetAccOfficeClipboardList = Acc
  Set Acc = Nothing
End Function

Private Function GetAcc(myAcc As Office.IAccessible, myAccName As String, _
                        myAccRole As Long) As Office.IAccessible
  Dim ReturnAcc As Office.IAccessible
  Dim ChildAcc As Office.IAccessible
  Dim List() As Variant
  Dim Count As Long
  Dim i As Long
  
  If (myAcc.accState(CHILDID_SELF) <> 32769) And _
     (myAcc.accName(CHILDID_SELF) = myAccName) And _
     (myAcc.accRole(CHILDID_SELF) = myAccRole) Then
    Set ReturnAcc = myAcc
  Else
    Count = myAcc.accChildCount
    If Count > 0& Then
      ReDim List(Count - 1&)
      If AccessibleChildren(myAcc, 0&, ByVal Count, List(0), Count) = 0& Then
        For i = LBound(List) To UBound(List)
          If TypeOf List(i) Is Office.IAccessible Then
            Set ChildAcc = List(i)
            Set ReturnAcc = GetAcc(ChildAcc, myAccName, myAccRole)
            If Not ReturnAcc Is Nothing Then Exit For
          End If
        Next
      End If
    End If
  End If
  Set GetAcc = ReturnAcc
End Function



Sub CopyRange(fBook As String, fWindow As String, fSheet As String, fRange As String, _
              tBook As String, tWindow As String, tSheet As String, tRange As String)
'
' CopyRange Macro
'   
    Workbooks.Open fBook
    Workbooks.Open tBook
    
    
    Workbooks(fWindow).Activate
    Worksheets(fSheet).Select
    Range(fRange).Select
    Selection.Copy
    
    Workbooks(tWindow).Activate
    Worksheets(tSheet).Select
    Range(tRange).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    On Error Resume Next
    ActiveWorkbook.Save
    If Err.Number > 0 Then MsgBox "保存されませんでした"
    
    DoActionOfficeClipboard "すべてクリア" ''「すべてクリア」実行

    Workbooks(fWindow).Close   
    Workbooks(tWindow).Close   
End Sub

        

'ユーザーフォームのモジュールに書く内容

    Option Explicit
       
    ' グローバル定数定義
    Const FullHD_W As Long = 1920
    Const FullHD_H As Long = 1080
    Const ZoomRatio As Long = 99
    Const UserForm1_Width As Long = 1440

'　フォームの初期化処理
Private Sub UserForm_Initialize()   
    
    Dim ScreenW, ScreenH As String
    Dim Rt, RtH, RtW As Double
      
    ' イメージ表示領域のサイズ設定
    ImageDisplayHeight = FrameDisplatImages.Height - 4
    ImageDisplayWidth = FrameDisplatImages.Width
    
    ' スクリーンサイズによる設定
    ScreenW = GetScreenX
    ScreenH = GetScreenY
    ' FullHD 未満の場合は画面の横幅に合わせてズームする
    If Val(ScreenW) < FullHD_W Or Val(ScreenH) < FullHD_H Then
        Me.Width = ActiveWindow.Width
        Me.Zoom = Round((Me.Width) / UserForm1_Width, 2) * ZoomRatio
    End If
    
End Sub


'標準モジュールに書く内容
Option Explicit

'*** Timer Function ***

Declare Function SetTimer Lib "user32" _
      (ByVal hwnd As Long, _
      ByVal nIDEvent As Long, _
      ByVal uElapse As Long, _
      ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" _
      (ByVal hwnd As Long, _
      ByVal nIDEvent As Long) As Long

Declare Function BeepAPI Lib "kernel32.dll" Alias "Beep" _
    (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long


Global iCounter As Integer


'*** Computer Infomation ***

'------------------------------------------
' ハードウェア
'------------------------------------------
     
' ユーザー名の長さを示す定数
Private Const UNLEN = 256 + 1
 
' NCBの名称の文字数
Private Const NCBNAMSZ = 16
 
' コンピュータ名の長さ
Private Const MAX_COMPUTERNAME_LENGTH = 15 + 1
 
' NCB(Network Control Block)コマンド
Private Const NCBRESET = &H32
Private Const NCBASTAT = &H33
     
' ローカルネットワーク名を格納する構造体
Private Type NAME_BUFFER
    name       As String * NCBNAMSZ
    name_num   As Byte
    name_flags As Byte
End Type
 
 
     
'さまざまなシステムメトリックの値（表示要素の幅と高さ）とシステムの現在の構成を取得
 
Private Const SM_CXSCREEN = 0       'スクリーン幅
Private Const SM_CYSCREEN = 1       'スクリーン高さ
Private Const SM_CMOUSEBUTTONS = 43 'マウスボタン数
Private Const SM_CMONITORS = 80     'モニター数
 
 
#If Win64 Then
 
    'システムの現在の構成を取得
    Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
 
'    ' コンピュータ名を取得
'    Private Declare PtrSafe Function GetComputerName Lib "kernel32.dll" _
'        Alias "GetComputerNameA" _
'       (ByVal lpBuffer As String, _
'        nSize As Long) As Long
'
'    ' コンピュータ名を取得
'    Private Declare PtrSafe Function GetComputerNameEx Lib "kernel32.dll" _
'        Alias "GetComputerNameExA" _
'       (ByVal NameType As Long, _
'        ByVal lpBuffer As String, _
'        lpnSize As Long) As Long
 
     
    ' ユーザー名を取得
    Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" _
        Alias "GetUserNameA" _
       (ByVal lpBuffer As String, _
        nSize As Long) As Long
     
 
 
#Else
 
    'システムの現在の構成を取得
    Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
     
'    ' コンピュータ名を取得
'    Private Declare Function GetComputerName Lib "kernel32.dll" _
'        Alias "GetComputerNameA" _
'       (ByVal lpBuffer As String, _
'        nSize As Long) As Long
'
'    ' コンピュータ名を取得
'    Private Declare Function GetComputerNameEx Lib "kernel32.dll" _
'        Alias "GetComputerNameExA" _
'       (ByVal NameType As Long, _
'        ByVal lpBuffer As String, _
'        lpnSize As Long) As Long
     
    ' ユーザー名を取得
    Private Declare Function GetUserName Lib "advapi32.dll" _
        Alias "GetUserNameA" _
       (ByVal lpBuffer As String, _
        nSize As Long) As Long
 
#End If
 
 
'------------------------------------------------------------------------
'
'Function ComputerName() As String
''
'' コンピュータ名
''
'    Dim strComputerNameBuffer _
'        As String * MAX_COMPUTERNAME_LENGTH
'    Dim lngComputerNameLength As Long
'    Dim lngResult             As Long
'
'    ' コンピュータ名の長さを設定
'    lngComputerNameLength = Len(strComputerNameBuffer)
'    ' コンピュータ名を取得
'    lngResult = GetComputerName(strComputerNameBuffer, lngComputerNameLength)
'    ' コンピュータ名を取り出し
'    ComputerName = Left(strComputerNameBuffer, InStr(strComputerNameBuffer, _
'                   vbNullChar) - 1)
'End Function
 
Function UserName() As String
'
' ログインユーザ名
'
    Dim strUserNameBuffer As String * UNLEN
    Dim lngUserNameLength As Long
    Dim lngResult         As Long
 
    ' ユーザー名の長さを設定
    lngUserNameLength = Len(strUserNameBuffer)
    ' ユーザー名を取得
    lngResult = GetUserName(strUserNameBuffer, lngUserNameLength)
    ' ユーザー名を表示
    UserName = Left(strUserNameBuffer, InStr(strUserNameBuffer, _
                   vbNullChar) - 1)
End Function
 
 
 
'Function MacAddress() As String
''
'' MAC アドレス
''   WMI を用いて MAC アドレスを取得
'
'    Dim strComputer As String   'コンピュータ名
'    Dim objWMI As Object        'WMIオブジェクト
'    Dim objAdapter As Object    'ネットワークアダプタ
'
'    ' 初期値
'    MacAddress = ""
'
'    Set objWMI = GetObject("winmgmts:\\.\root\cimv2").ExecQuery _
'        ("Select * From Win32_NetworkAdapterConfiguration " & _
'            "Where IPEnabled = True")
'
'    ' ネットワークアダプタ参照
'    For Each objAdapter In objWMI
'        'MACアドレス参照(最初に見つけたもので確定)
'        MacAddress = objAdapter.MacAddress
'        Exit Function
'    Next
'
'End Function
 
 
'Function GetIPAddress() As String
''
'' IP アドレス取得
''   WMI を用いて IP アドレスを取得
''
'    Dim NetAdapters, objNic, strIPAddress
'    Set NetAdapters = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") _
'                           .ExecQuery("Select * from Win32_NetworkAdapterConfiguration " & _
'                           "Where (IPEnabled = TRUE)")
'     'ネットワークアダプターが複数ある場合、複数IPが割り当てられている場合は最初のみ取得
'    For Each objNic In NetAdapters
'        For Each strIPAddress In objNic.IPAddress
'            GetIPAddress = strIPAddress
'            Exit Function
'        Next
'    Next
'
'End Function
 
 
 
Function GetScreenX() As String
'
' スクリーンの幅
'
    GetScreenX = GetSystemMetrics(SM_CXSCREEN)
End Function


Function GetScreenY() As String
'
' スクリーンの高さ
'
    GetScreenY = GetSystemMetrics(SM_CYSCREEN)
End Function
'
'Function GetMonitorCount() As String
''
'' モニター数
''
'    GetMonitorCount = GetSystemMetrics(SM_CMONITORS)
'End Function
'
'Function GetMouseButtonCount() As String
''
'' マウスボタン数
''
'    GetMouseButtonCount = GetSystemMetrics(SM_CMOUSEBUTTONS)
'End Function

        

        private void Form1_Load(object sender, EventArgs e)
        {
            SetFormScale();
        }


        private void SetFormScale()
        {
            //スクロール機能を有効にする
            AutoScroll = true;
            //フォームが存在しているディスプレイの作業領域の高さと幅を取得
            double Dh = System.Windows.Forms.Screen.GetWorkingArea(this).Height;
            double Dw = System.Windows.Forms.Screen.GetWorkingArea(this).Width;
            double Fh = this.Size.Height;
            double Fw = this.Size.Width;

            if (Dh < Fh | Dw < Fw)
            {
                double zoomh = Dh / Fh;
                double zoomw = Dw / Fw;
                if (zoomh <= zoomw)
                {
                    this.Height = Convert.ToInt32(Fh * zoomh);
                    this.Width = Convert.ToInt32(Fw * zoomh);
                }
                else
                {
                    this.Height = Convert.ToInt32(Fh * zoomw);
                    this.Width = Convert.ToInt32(Fw * zoomw);
                }
            }
        }