Range("A1:J2").Select
ActiveSheet.Pictures.Insert( _
"\Server2009SI_labOnlineRegistrazioniLaboratorioFirme digitaliPippo Ezio.jpg" _
).Select
Selection.ShapeRange.IncrementLeft 87.75
Selection.ShapeRange.IncrementTop 770.5
ActiveWindow.SmallScroll Down:=6
Selection.ShapeRange.IncrementLeft -12#
Selection.ShapeRange.IncrementTop -2.25
Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Name = "pippo" |