https://forums.autodesk.com/t5/autocad-forum/zoom-to-selected-objects/m-p/942696#M349925 Hi...<BR /> <BR /> I hope that this routine help you...<BR /> <BR /> Private Sub ZoomTexto()<BR /> Dim sSeleccion As AcadSelectionSet<BR /> Dim cSeleccion As AcadSelectionSets<BR /> Dim vCodigo As Variant<BR /> Dim vEntidad As Variant<BR /> Dim codigo(0) As Integer<BR /> Dim entidad(0) As Variant<BR /> Dim ObjTexto As AcadEntity<BR /> Dim n As Integer<BR /> n = 1<BR /> Dim minP1 As Variant, maxP1 As Variant<BR /> Form1.Hide<BR /> AppActivate autocadApp.Caption<BR /> Set cSeleccion = autocadApp.ActiveDocument.SelectionSets<BR /> For Each sSeleccion In cSeleccion<BR /> If sSeleccion.Name = "SS" Then<BR /> sSeleccion.Delete<BR /> Exit For<BR /> End If<BR /> Next<BR /> Set sSeleccion = cSeleccion.Add("SS")<BR /> codigo(0) = 0<BR /> entidad(0) = "TEXT,MTEXT"<BR /> vCodigo = codigo<BR /> vEntidad = entidad<BR /> sSeleccion.SelectOnScreen vCodigo, vEntidad<BR /> For Each ObjTexto In sSeleccion<BR /> ObjTexto.GetBoundingBox minP1, maxP1<BR /> autocadApp.ZoomWindow minP1, maxP1<BR /> If n &lt; sSeleccion.Count Then<BR /> autocadApp.ActiveDocument.Utility.Prompt vbCr &amp; "Zoom a: " &amp; ObjTexto.TextString &amp; vbCr<BR /> Else<BR /> 'Salida limpia<BR /> autocadApp.ActiveDocument.Utility.Prompt vbCr &amp; "Zoom a: " &amp; ObjTexto.TextString &amp; vbCrLf<BR /> autocadApp.ActiveDocument.SendCommand Chr(3)<BR /> End If<BR /> n = 1 + n<BR /> Next ObjTexto<BR /> Form1.Show<BR /> End Sub<BR /> <BR /> Un saludo de SpeedCAD... <span class="lia-unicode-emoji" title=":slightly_smiling_face:">🙂</span><BR /> CHILE<BR /> FORO: http://www.hispacad.com/foro Sat, 31 Jan 2004 14:32:03 GMT Speed_CAD 2004-01-31T14:32:03Z