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