//変数「EXID」にウィンドウIDを取得 EXID = GETID("Microsoft Excel","XLMAIN") //変数「EXID」をアクティブに CTRLWIN(EXID,ACTIVATE) EXCEL = GETACTIVEOLEOBJ("Excel.Application") //アクティブセルが4列目かどうかチェック IFB (EXCEL.ActiveCell.Column = 4) ELSE MSGBOX("4列目のセルを選択してください") exitexit ENDIF //カーソル位置から左に4セルの値をそれぞれ変数に格納 SELX = EXCEL.ActiveCell.Text SELY = EXCEL.ActiveCell.Offset(0,1).Text SELW = EXCEL.ActiveCell.Offset(0,2).Text SELH = EXCEL.ActiveCell.Offset(0,3).Text //変数が数値データかチェック IFB CHKNUM(SELX + SELY + SELW + SELH) ELSE MSGBOX("数値データを選択してください") exitexit ENDIF //AzPainterをアクティブに //複数立ち上げてる場合は多分前面のウィンドウ優先 ACW(GETID("AzPainter","Main")) //AzPainterが起動していない場合のエラー処理 ID = GETID("AzPainter") ifb (ID < 0) MSGBOX("ウィンドウが見つかりません") exitexit endif //座標指定選択ウィンドウのIDが取得出来るまで繰り返し //繰り返し------------ここから REPEAT //Ctrl+Shift+Gで座標指定選択ウィンドウへ KBD(VK_SHIFT,DOWN,10) KBD(VK_CTRL,DOWN,10) KBD(VK_G,CLICK,10) KBD(VK_SHIFT,UP,10) KBD(VK_CTRL,UP,10) //変数「APID」にウィンドウIDを取得 APID = GETID("座標指定選択","#32770") until (APID > 0) //繰り返し------------ここまで //取得した座標値をセット SENDSTR(APID,SELX,1,TRUE,) SENDSTR(APID,SELY,2,TRUE,) SENDSTR(APID,SELW,5,TRUE,) SENDSTR(APID,SELH,6,TRUE,) //Enterキーで確定 KBD(VK_ENTER,CLICK,10)