|
回答有難う御座います。
エクセルのバージョンですが、実話使用ソフトはAutoCAD2000iです。
すみません。投稿場所が解らずこちらに書かせて頂きますた。
私個人の使用しているソフトはAutoCAD2007(最新)にては下記コードにて
動くのですが、会社にて動くよう書き換えたいのですが、
なんせvbaが、とんと解りません 是非お力をお貸し下さい。
ちなみにFindWindowはどう使えばよいのですか?
///////////////////////////////////////////////////////////
Private Declare Function SetWindowText Lib "user32" _
Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Sub addtitle()
Dim LB_Win32ApiResultCode As Long
LB_Win32ApiResultCode = SetWindowText(ThisDrawing.Application.hwnd, "AutoCAD " & ThisDrawing.GetVariable("cprofile"))
End Sub
////////////////////////////////////////////////////////////////
|
|