groep ingeklapt kopiëren

is er een mogelijkheid om een ingeklapte groep ingeklapt te kopiëren

Ja, op dezelfde manier als je een normale cel kopieert.

popipipo bedankt voor de reactie
maar als ik een groep ingeklapt kopieer, worden ze uitgeklapt weergegeven
kwestie om niet telkens te moeten scrollen

Vreemd want bij mij blijft hij ingeklapt
kopieer rij 3 tm 19 eens.

popipipo ik zal blijkbaar een ander systeem moeten toepassen
uw bijlage werkt wel
bij mij bevindt de groep (afbeeldingen) zich in het selectievenster
sorry correctie

Plaats het bestand. Of een voorbeeld ervan.

Sub deel1()
Range("f48") = "1"
Range("f53") = ""
Range("f58") = ""
Range("f63") = ""
Range("f68") = ""
Range("f73") = ""
Range("z48") = ""
Range("z53") = ""
Range("z58") = ""
Range("z63") = ""
Range("z68") = ""
Range("z73") = ""
x = 28.3464566929
'achterachtergrond centreren
ActiveSheet.Shapes.Range(Array("achterachtergrond1")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("achterachtergrond1")).Select
With Selection
.Height = x * 60
.Width = x * 50
.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2
End With
ActiveSheet.Shapes.Range(Array("achterachtergrond2")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("achterachtergrond2")).Select
With Selection
.Height = x * 60
.Width = x * 50
.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2
End With
ActiveSheet.Shapes.Range(Array("achterachtergrond1", "achterachtergrond2")).Visible = msoFalse


ActiveSheet.Shapes("achtergrond").Visible = True
ActiveSheet.Shapes("voorgrond").Visible = True

ActiveSheet.Shapes("achtergrond").Select
With Selection
.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2
.Visible = msoFalse
End With

ActiveSheet.Shapes("voorgrond").Select
With Selection
.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2
.Visible = msoFalse
End With

Sheets("ik1").Select
ActiveSheet.Shapes.Range(Array("1", "2", "3")).Select
Selection.Copy
Sheets("blad2").Select
Range("o58").Select
ActiveSheet.Paste
'1

ActiveSheet.Shapes.Range(Array("1")).Select

With Selection
.Height = x * [w46]
.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2
End With
'2

ActiveSheet.Shapes.Range(Array("2")).Select


With Selection
.Height = x * [w46]
.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2

End With
'3

ActiveSheet.Shapes.Range(Array("3")).Select
With Selection
.Height = x * [w46]
.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2

End With
'4

If Range("f41") = "j" Then
ActiveSheet.Shapes.Range(Array("2")).Select
Selection.Copy
ActiveSheet.Paste
With Selection

.Top = Range("p62").Top + (Range("p62").Height - .Height) / 2
.Left = Range("p62").Left + (Range("p62").Width - .Width) / 2
.ShapeRange.Name = "4"
End With
ActiveSheet.Shapes.Range(Array("4", "3", "2", "1")).Select
Selection.ShapeRange.Group.Select
Selection.ShapeRange.Name = "groep 1"
Selection.ShapeRange.ZOrder msoSendBackward
Else
ActiveSheet.Shapes.Range(Array("3", "2", "1")).Select
Selection.ShapeRange.Group.Select
Selection.ShapeRange.Name = "groep 1"
Selection.ShapeRange.ZOrder msoSendBackward
End If
End Sub
groep 1 bevat werkmateriaal
groepen g zijn onderdelen
zo kom ik soms rond de 50 afbeeldingen
alles werkt goed
het enige wat ik zou willen oplossen is de groepen (1,g1,g2,g3,g4) samengeklapt houden

https://www.helpmij.nl/forum/announcement.php?f=5
Om maar eens ergens te beginnen.
Volgens mij vroeg ik om een bestand en niet om een brei aan onleesbare regels.

ok iedereen bedankt
VenA
sorry heb geen ervaring in hulp vragen
zo'n ramp is het niet het werkt
de bedoeling was dat excel de grootte berekende en zo te kopiëren
naar powerpont omslachtig maar het werkt
voor mij is het opgelost
groeten

Dan mag je de vraag nog even op opgelost zetten.