Třeba takto
Range("B1").Select
' Graf nesmí být aktivní
With ActiveSheet.Shapes("graf 1")
.Left = Range("B2").Left
.Top = Range("B2").Top
End With
citovat
Range("B1").Select
' Graf nesmí být aktivní
With ActiveSheet.Shapes("graf 1")
.Left = Range("B2").Left
.Top = Range("B2").Top
End With
citovat