Agrupar imágenes de una hoja como una sola

[Antoni]

Hola:

Esta macro agrupa todas las imágenes que existan en una hoja para que puedan ser manipuladas como si fuera una sola.

Private Sub AgruparImágenes()


With ActiveSheet.Shapes

 If .Count > 1 Then

    ReDim SerieLíneas(1 To .Count)

    '--

    For i = 1 To .Count

      If .Item(.Count - i + 1).Type = [COLOR=#0000ff][B]msoPicture [/B][/COLOR]Then

        Líneas = Líneas + 1

        SerieLíneas(Líneas) = .Item(.Count - i + 1).Name

      End If

    Next

    '--

    If Líneas > 1 Then

     ReDim Preserve SerieLíneas(1 To Líneas)

     .Range(SerieLíneas).Select

     Selection.ShapeRange.Group.Select

     Selection.Name = "Agrupación de imágenes"

    End If

 End If

End With



End Sub

[/CODE]

A lo mejor os sirve para algo.

Saludos

[digitalboy]

El codigo anterio equivale a pulsar F5->Especial->Objetos->clic derecho y seleccionar agrupar?

- - - - - Mensaje combinado - - - - -

al principio ejecute tu codigo con autoformas y no funciono! quizas se deba a que el titulo de este tema explicitamente dice imagenes, entonces inserte imagenes y funciono!

Grabe el procedimiento manual con la grabadora y obtuve:

ActiveSheet.DrawingObjects.Select[/PHP]

y con la linea aportada en tu codigo:

[PHP]Selection.ShapeRange.Group.Select[/PHP]

las fusione para obtener una sola:

[PHP]ActiveSheet.DrawingObjects.ShapeRange.Group.Select[/PHP]

Bueno... esta es otra alternativa, saludos!

[Antoni]

Efectivamente, la macro solo agrupa imágenes, obviando el resto de objetos.

Lista de objetos:

[TABLE=width: 430]

[TR]

[TD]Name[/TD]

[TD]Value[/TD]

[TD]Description[/TD]

[/TR]

[TR]

[TD]msoAutoShape[/TD]

[TD=align: right]1[/TD]

[TD]AutoShape.[/TD]

[/TR]

[TR]

[TD]msoCallout[/TD]

[TD=align: right]2[/TD]

[TD]Callout.[/TD]

[/TR]

[TR]

[TD]msoCanvas[/TD]

[TD=align: right]20[/TD]

[TD]Canvas.[/TD]

[/TR]

[TR]

[TD]msoChart[/TD]

[TD=align: right]3[/TD]

[TD]Chart.[/TD]

[/TR]

[TR]

[TD]msoComment[/TD]

[TD=align: right]4[/TD]

[TD]Comment.[/TD]

[/TR]

[TR]

[TD]msoDiagram[/TD]

[TD=align: right]21[/TD]

[TD]Diagram.[/TD]

[/TR]

[TR]

[TD]msoEmbeddedOLEObject[/TD]

[TD=align: right]7[/TD]

[TD]Embedded OLE object.[/TD]

[/TR]

[TR]

[TD]msoFormControl[/TD]

[TD=align: right]8[/TD]

[TD]Form control.[/TD]

[/TR]

[TR]

[TD]msoFreeform[/TD]

[TD=align: right]5[/TD]

[TD]Freeform.[/TD]

[/TR]

[TR]

[TD]msoGroup[/TD]

[TD=align: right]6[/TD]

[TD]Group.[/TD]

[/TR]

[TR]

[TD]msoIgxGraphic[/TD]

[TD=align: right]24[/TD]

[TD]SmartArt graphic[/TD]

[/TR]

[TR]

[TD]msoInk[/TD]

[TD=align: right]22[/TD]

[TD]Ink[/TD]

[/TR]

[TR]

[TD]msoInkComment[/TD]

[TD=align: right]23[/TD]

[TD]Ink comment[/TD]

[/TR]

[TR]

[TD]msoLine[/TD]

[TD=align: right]9[/TD]

[TD]Line[/TD]

[/TR]

[TR]

[TD]msoLinkedOLEObject[/TD]

[TD=align: right]10[/TD]

[TD]Linked OLE object[/TD]

[/TR]

[TR]

[TD]msoLinkedPicture[/TD]

[TD=align: right]11[/TD]

[TD]Linked picture[/TD]

[/TR]

[TR]

[TD]msoMedia[/TD]

[TD=align: right]16[/TD]

[TD]Media[/TD]

[/TR]

[TR]

[TD]msoOLEControlObject[/TD]

[TD=align: right]12[/TD]

[TD]OLE control object[/TD]

[/TR]

[TR]

[TD]msoPicture[/TD]

[TD=align: right]13[/TD]

[TD]Picture[/TD]

[/TR]

[TR]

[TD]msoPlaceholder[/TD]

[TD=align: right]14[/TD]

[TD]Placeholder[/TD]

[/TR]

[TR]

[TD]msoScriptAnchor[/TD]

[TD=align: right]18[/TD]

[TD]Script anchor[/TD]

[/TR]

[TR]

[TD]msoShapeTypeMixed[/TD]

[TD=align: right]-2[/TD]

[TD]Mixed shape type[/TD]

[/TR]

[TR]

[TD]msoTable[/TD]

[TD=align: right]19[/TD]

[TD]Table[/TD]

[/TR]

[TR]

[TD]msoTextBox[/TD]

[TD=align: right]17[/TD]

[TD]Text box[/TD]

[/TR]

[TR]

[TD]msoTextEffect[/TD]

[TD=align: right]15[/TD]

[TD]Text effect[/TD]

[/TR]

[/TABLE]

[digitalboy]

Bien... distinguir entre objetos es de utilidad, gracias por el tip!