Red de conocimiento informático - Espacio del host - Programación manual de semicírculos

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.