ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.ScaleWidth 1.4716981132, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.5192982456, msoFalse, msoScaleFromTopLeft
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).Points(2).Select
With Selection.Format.Fill
.Visible = msoTrue
.PresetTextured msoTexturePapyrus
.TextureTile = msoTrue
.TextureOffsetX = 0
.TextureOffsetY = 0
.TextureHorizontalScale = 1
.TextureVerticalScale = 1
.TextureAlignment = msoTextureTopLeft
End With