У объекта Model (ThisWorkbook.Model, ActiveWorkbook.Model) есть свойство связи (ModelRelationships). Покопайтесь, мне связи через vba не нужны были.

По п.3 использовал

Sub add_measures()
   Dim mdl As Model
   
   Set mdl = ThisWorkbook.Model
   Set tbl = mdl.ModelTables("имя_таблицы_в_кот_добавл_меру")

   mdl.ModelMeasures.Add "имя_меры", tbl, "формула_dax", mdl.ModelFormatDecimalNumber

End Sub