プログラミングTipsのようなものです。

WinSpec^TM用 Tips (WinSpecは、Roper Scientificのソフトウェアです)
　　□● ゲイン表示マクロ
WinSpec^TMのマクロをVisual Basic2008 Express Editionで作るには？ (別ウィンドウで開きます)

---

●ゲイン表示マクロ
 　 　WinSpecのデータ(speファイル)内には、測定時のゲインの値が記録されていますが、File Informationでは表示されないようです。それを表示させるマクロ(VBScript)です。以下をコピーして適当なファイル名（拡張子vbs） を付けて保存します。WinSpec上にゲインを知りたいデータファイルを読み込んでアクティブにした状態で実行します。

' WinSpec上のアクティブデータのゲインを表示するマクロ
Option Explicit

Dim val
Dim pDocWindows
Dim pActiveWindow, pDoc
Dim Str

'WinSpec/32のActive Objectを取得する
Set pDocWindows   = CreateObject("WinX32.DocWindows")
' ActiveなWindowを取得
Set pActiveWindow = pDocWindows.GetActive

' Docを取得する
Set pDoc=pActiveWindow.GetDocument
' Gainを取得する
val=pDoc.GetParam(17)    'DM_GAIN = 17,
'表示する
Str="Gain="+CStr(val)
MsgBox Str

'オブジェクトの破棄
Set pDocWindows = Nothing

---