es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Cómo renombrar una forma después de fusionar dos formas como una unión?

Soy un principiante en PowerPoint VBA. Quiero combinar dos formas usando VBA. Así que busco en la web y encontré la solución aquí https://stackoverflow.com/a/46025003/17766045

Dim shp1 As Shape
Dim shp2 As Shape

Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeOval, 100, 100, 50, 50)
Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape(msoShapePie, 100, 100, 50, 50)
Call ActiveWindow.Selection.SlideRange(1).Shapes.Range(Array(shp1.ZOrderPosition, shp2.ZOrderPosition)).MergeShapes(msoMergeCombine)

Pero no sé cómo configurar el nombre de esa forma fusionada.

Tags:  ,

Answer

  1. Avatar for davy.ai

    Para cambiar el nombre de la forma fusionada, puedes agregar la siguiente línea de código después de la línea mergeShapes:

    ActivePresentation.Slides(1).Shapes(ActivePresentation.Slides(1).Shapes.Count).Name = "Nuevo Nombre de la Forma"
    

    Esta línea cambiará el nombre de la forma fusionada a “Nuevo Nombre de la Forma”. Puedes reemplazar esto con cualquier nombre que desees darle a la forma fusionada.

Comments are closed.