A powerful graph range is an information range that refreshes naturally when you change the information source. This unique reach is then utilized as the source information in an outline. As the information changes, the powerful reach refreshes right away which prompts an update in the outline.
The following is an illustration of a graph that utilizes a unique outline range.
sub create _dynamic_ chart ()
Application . ScreenUpadting = False
with Activesheet. shapes ( Application .caller ) .Fill.Forecolor
If . Brightnesss = 0 Then
. Brightness = -0.150000006
Else
. Brightness = 0
End If
End With
Dim Sequence ( ) As String
Desired__shapes = Array ( ” Rounded Rectangle 1″ , ” Rounded Rectangle 2 ” , ” Rounded Rectangle
For i = LBound ( Desired _Shapes ) To UBound ( Desired_Shapes)
With ActiveSheet.Shapes(Desired _Shapes (i) )
If .Fill . Forecolor.Brightness = -0.150000006 Then
Sequence ( UBound ( Sequence ) ) = . Text Frame2.TextRange . Characters . Text
ReDim Preseve Sequence ( UBound ( Series ) + 1 )
End If
End With
Next i
If UBound ( Sequence ) >0 Then ReDim Preserve Sequence ( UBound ( Sequence ) – 1 )
Worksheets (“sheet 1″ ) . ListObjects ( ” Table 1 ” ). Range . AutoFilter Field :=1
Worksheets ( ” sheet 1″). ListObjects ( “Table 1 ” ) . Range .AutoFilter _
Field : =1 , Criterial : = Sequence , Operator : =xl FilterValues
Application.ScreenUpadting = True
End Sub
You’ll find a powerful graph made in view of the table in Sheet2 of the worksheet.