Programación manual de semicírculos
Sub txy()
Establecer mi hoja activa she = 'Establecer variables de objeto.
Set myJh = New Collection 'Establece una nueva variable de colección.
mi izquierda = aplicación.celda activa. left+10 'Obtiene el margen izquierdo de la celda activa.
mi top = aplicación . celda activa . top+10 'Obtiene el margen superior de la celda activa.
Agregue la forma ovalada de msoShapeOval con my she . addshape(msoShapeOval, my left, mytop, 200, 200)'.
. relleno. Transparencia = 1 'Establece la forma en transparente.
. Cable. Peso = myXt+0.75 'Establecer ancho de línea.
. Cable. Establece el color de primer plano.
Termina con...
Conector final
======================= ==== ==
Estudia, jaja.