VBA Layouts and there Page setup name

[KaiBo]

I am trying to write a VBA module that dose an inventory of all of our Layouts. The key code that I am missing is how to get the name of the page setup (PlotConfiguration) being used for each layout.

So far I found out how to get a list of available Page Setups (PlotConfiguration)

Sub FindPageStUp()
Dim oLay As AcadPlotConfiguration
   For Each oLay In ThisDrawing.PlotConfigurations
       MsgBox oLay.Name
   Next
End Sub

I found out how to get a list of Layouts

Sub FindLayouts()
   Dim oLay As AcadLayout
       For Each oLay In ThisDrawing.Layouts
           MsgBox oLay.Name
       Next
End Sub

I thought I finaly found the anwer when I came across the syntax “ConfigName” but this only returns the plotter assigned to a Layout. Seems like it should have been called “PloterName”

Sub FindconFig()
   Dim oLay As AcadLayout
       For Each oLay In ThisDrawing.Layouts
           MsgBox oLay.ConfigName
       Next
End Sub

 

Now I just need to find the connection between layout and PlotConfiguration.

how do I ask what the PlotConfiguration for each layout is?