Sub
GetShapePropertiesSomeWs4()
Dim
sShapes
As
Shape
Dim
wsLoop
As
Worksheet
Dim
l
As
Long
For
Each
wsLoop
In
Worksheets
Select
Case
UCase(wsLoop.Name)
Case
"PLCP"
For
Each
sShapes
In
wsLoop.Shapes
If
sShapes.Name
Like
"Scale_*"
Then
l = Worksheets(
"PLCP"
).Range(
"F1:F1000"
).Find(sShape.Name, Range(
"F1"
), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=
False
).Row
Worksheets(
"PLCP"
).Shapes(sShapes.Name).Chart.SetSourceData Source:=Union(Range(Cells(l + 1, 5), Cells(l + 31, 6)), Range(Cells(l + 1, 8), Cells(l + 31, 37)))
End
If
Next
sShapes
End
Select
Next
wsLoop
End
Sub