ImportProfile メソッド(ActiveX)

他のユーザが作成したプロファイルを読み込みます。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.ImportProfile Profile, RegFile, IncludePathInfo

object

タイプ: PreferencesProfiles

このメソッドが適用されるオブジェクト。

Profile

アクセス: 入力のみ

タイプ: 文字列

読み込まれるプロファイルの名前。

RegFile

アクセス: 入力のみ

タイプ: 文字列

プロファイルの読み込み元となるレジストリ ファイル。ファイルの拡張子は .arg である必要があります。

IncludePathInfo

アクセス: 入力のみ

タイプ: ブール型

• True: レジストリ ファイル内のパス情報は、保持されます。
• False: レジストリ ファイル内のパス情報は、保持されません。

戻り値(RetVal)

戻り値はありません。

注意

追加の注意はありません。

例

VBA:

Sub Example_ImportProfile()
    ' This example imports a profile.
    ' NOTE: A dummy profile name is used so that your existing
    ' profiles are not changed.
    
    Dim preferences As AcadPreferences
    Dim strProfileToImport As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Specify the profile to delete.
    strProfileToImport = "TestProfile"
    
    ' Delete the profile
    ' The call will fail if "TestProfile" does not exist
    On Error GoTo Error
    preferences.Profiles.ImportProfile strProfileToImport, "TESTPROFILE.ARG", True
    
    Exit Sub
    
Error:
    MsgBox "ImportProfile of " & strProfileToImport & " failed. " & Err.Description, , "ImportProfile Example"
        
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_ImportProfile()
    ;; This example imports a profile.
    ;; NOTE: A dummy profile name is used so that your existing
    ;; profiles are not changed.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; Specify the profile to import.
    (setq strProfileToImport "TestProfile")
    (vla-ImportProfile (vla-get-Profiles preferences) strProfileToImport (findfile "TESTPROFILE.ARG") :vlax-true)
)