I have been asked to make some of the demo files available for the web cast I did this week ( click here ). I have placed some of the files in a OneDrive folder here : click here to view. There are three demos, and they all involve linking Visio shapes to data. I have also provided the sample AutoCAD R2013 file, which can now be inserted into Visio Pro for Office 365 documents.
In the Site Plan example, the visibility event shapes are toggled off/on according to the Day selected in the page Shape Data. The above animated gif was recorded using the following macro.
Public Sub RunDays()
Dim i As Integer
Dim t As Double
For i = 0 To 18
t = Timer()
ThisDocument.Pages(1).PageSheet.Cells(“Prop.Day”).FormulaU = _
“=INDEX(” & i & “,Prop.Day.Format)”
Do While Timer() < t + 0.75
I then use SnagIt from TechSmith ( https://www.techsmith.com/ ) to record the Visio page, and save as an animated gif.