Buenos días, aquí comparto una regla de ilogic que puede ser interna o externa. Esta regla cambiará el cajetín que este designado a la hoja y tambien cambiará el tipo de proyección de la vista. Si hay muchas hojas deberás colocar un loop para cambiar el cajetín en todas las hojas de ser necesario (no lo he colocado para no complicar el código). Fijate que tu cajetín coincida exactamente con la string que te he marcado en rojo. He colcado un cuadro de lista para que puedas agregar en el diferentes cajetines por si en el futuro necesitas agregar más. Espero esto sea de utilidad
Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oList As New ArrayList
oList.Add("ISO_A")
oList.Add("ISO_E")
Dim Sel As String = InputListBox("Elige el tipo de plantilla adecuado", oList, "ISO_A", "PLANTILLA", "TIPO")
If Sel = "ISO_E" Then
oDoc.StylesManager.ActiveStandardStyle.FirstAngleProjection = True
ActiveSheet.TitleBlock = "CAJETIN_DEFINIDO_ISO_E"
End If
If Sel = "ISO_A" Then
oDoc.StylesManager.ActiveStandardStyle.FirstAngleProjection = False
ActiveSheet.TitleBlock = "CAJETIN_DEFINIDO_ISO_A"
End If
Please accept as solution and give likes if applicable.
I am attaching my Upwork profile for specific queries.
Sergio Daniel Suarez
Mechanical Designer
| Upwork Profile | LinkedIn