
Private Sub CommandButton1_Click()
Worksheets("Foglio2").Select
Worksheets("Foglio1").Shapes("Picture 1").Copy
ActiveSheet.Paste Destination:=Worksheets("Foglio2").Range("B3")
Worksheets("Foglio1").Range("B5").Copy
ActiveSheet.Paste Destination:=Worksheets("Foglio2").Range("B5")
End Sub
|
