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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola:
Esta macro agrupa todas las imágenes que existan en una hoja para que puedan ser manipuladas como si fuera una sola.
A lo mejor os sirve para algo.
Saludos