Tested with Standalone v3.3 and Installer 3.3 Beta 5
When using the "Redraw Sparklines" Function, the Sparklines are deleted and redrawn. All other Shapes are deleted, too.
Only the Sparkliens are deleted and redrawn, other Shapes are not modified.
-> Replace the Code that does Shape-Deletion with a call to the already defined and working DeleteSparklinesOnSheet().
For Each shp In ActiveSheet.Shapes
Application.Wait DateAdd("s", 0.00001, Now)
If Left(4, "Sprk") = strMatch Then shp.Delete
and some variables like
strLen = Len(ActiveSheet.Name) + 5
might be removed from that sub, too(never used afaik).
Fixed Version of the SparklinesSheetActions (3.3 Beta 5) appended.
Log in to post a comment.