GetIsMergeAllEnabled メソッド(ActiveX)

"すべて結合" プロパティの値を取得します。

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

構文と要素

VBA:

RetVal = object.GetIsMergeAllEnabled(StringCellStyle)

object

タイプ: TableStyle

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

StringCellStyle

アクセス: 入力のみ

タイプ: 文字列

セル スタイル名。

戻り値(RetVal)

タイプ: ブール型

• True: セル スタイルの "すべて結合" プロパティは有効です。
• False: セル スタイルの "すべて結合" プロパティは無効です。

注意

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

例

VBA:

Sub Example_EnableMergeAll()
    ' This example creates a TableStyle object and sets values for
    ' the style cell merging.
    
    Dim dictionaries As AcadDictionaries
    Set dictionaries = ThisDrawing.Database.dictionaries
  
    Dim dictObj As AcadDictionary
    Set dictObj = dictionaries.Item("acad_tablestyle")
  
    ' Create the custom TableStyle object in the dictionary
    Dim keyName As String
    Dim className As String
    Dim customObj As IAcadTableStyle
    keyName = "NewStyle"
    className = "AcDbTableStyle"
    Set customObj = dictObj.AddObject(keyName, className)
      
    customObj.Name = "NewStyle"
    customObj.Description = "New Style for My Tables"
  
    customObj.CreateCellStyle "NewTestStyle2"
    customObj.EnableMergeAll "NewTestStyle2", False
      
    If customObj.GetIsMergeAllEnabled("NewTestStyle2") = False Then
        MsgBox "Merge all is not enabled!"
    End If
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_EnableMergeAll()
    ;; This example creates a TableStyle object and sets values for
    ;; the style cell merging.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq dictionaries (vla-get-Dictionaries doc))
    (setq dictObj (vla-Item dictionaries "acad_tablestyle"))
  
    ;; Create the custom TableStyle object in the dictionary
    (setq keyName "NewStyle"
          className "AcDbTableStyle")
    (setq customObj (vla-AddObject dictObj keyName className))
      
    (vla-put-Name customObj "NewStyle")
    (vla-put-Description customObj "New Style for My Tables")
  
    (vla-CreateCellStyle customObj "NewTestStyle2")
    (vla-EnableMergeAll customObj "NewTestStyle2" :vlax-false)
      
    (if (= (vla-GetIsMergeAllEnabled customObj "NewTestStyle2") :vlax-false)
        (alert "Merge all is not enabled!")
    )
)