このデータをデータモデルに追加する、に常にチェックを入れておく方法はありませんか？

Question

実現したいこと

VBAである元データからピボットテーブル（シート）を作成するコードを書きましたが、その際に「このデータをデータモデルに追加する」にチェックボックスが入っている状態にしたいのです。
VBAのコードを教えていただくか、エクセルの設定で可能なのかどうか教えてください。

発生している問題・分からないこと

値フィールドの設定の「重複しない値の数」を表示したいのです。

該当のソースコード

特になし

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

調べましたが、ピボットテーブル作成時に手動でチェックを入れるという内容しか出て来ませんでした。

補足

特になし

Answer 1

VBAである元データからピボットテーブル（シート）を作成するコードを書きましたが、その際に「このデータをデータモデルに追加する」にチェックボックスが入っている状態にしたい

1. Connections オブジェクトの Add2 メソッドによって新しい接続（ WorkBookConnection オブジェクト）を作成する際、引数 CreateModelConnection に True を渡す。

2. 上記 1 で作成された接続を外部データソースとする PivotCache オブジェクト を PivotCaches オブジェクトの Create メソッドによって作成する。

3. 上記 2 で作成された PivotCache オブジェクトの CreatePivotTable メソッドによってピボットテーブルを任意のワークシート上に作成する。

Sub CreatePivotTableWithConnection()
    
    Dim wbkTarget As Workbook
    Dim wsSource As Worksheet
    
    Set wbkTarget = ThisWorkbook
    Set wsSource = wbkTarget.Worksheets(1)
    
    Dim rngSource As Range
    Set rngSource = wsSource.Cells(1, 1).CurrentRegion
    
    Dim wbcNew As WorkbookConnection
    Dim strConnectionName As String
    Dim strConnectionString As String
    Dim strCommandText As String
    
    strConnectionName = "WorksheetConnection_" & wsSource.Name & "!" & rngSource.Address
    strConnectionString = "WORKSHEET;" & wbkTarget.Path & "\[" & wbkTarget.Name & "]" & wsSource.Name
    strCommandText = "'" & wsSource.Name & "'!" & rngSource.Address
    
    Set wbcNew = wbkTarget.Connections.Add2(Name:=strConnectionName, _
                                            Description:="マクロで作成した接続です", _
                                            ConnectionString:=strConnectionString, _
                                            CommandText:=strCommandText, _
                                            lCmdtype:=xlCmdExcel, _
                                            CreateModelConnection:=True, _
                                            ImportRelationships:=False)

    Dim wsDestination As Worksheet
    Set wsDestination = wbkTarget.Worksheets.Add(After:=wsSource)

    Dim pvcNew As PivotCache
    Set pvcNew = wbkTarget.PivotCaches.Create(SourceType:=xlExternal, _
                                              SourceData:=wbcNew)
    Dim pvtNew As PivotTable
    Set pvtNew = pvcNew.CreatePivotTable(TableDestination:=wsDestination.Cells(3, 1), _
                                         TableName:="ピボットテーブル1")
                                         
    Set pvtNew = Nothing
    Set pvcNew = Nothing
    Set wbcNew = Nothing
    Set wsDestination = Nothing
    Set rngSource = Nothing
    Set wsSource = Nothing
    Set wbkTarget = Nothing

End Sub