Made a rotaing earth.
Downloaded the Map of World created by Visio guy at
http://www.visguy.com/2007/04/23/map-of-world/.
Pasted it around a sphare using freeware GIMP.
Saved as animation gif.
Separated images from animation gif.
Copied and Pasted on Visio drawing using my macro "TrimCircular"
If you download attatched Visio drawing, enable macro, and double-click the earth,
then the earth rotate just 1 time.
Please, enjoy.
Hey Junichi,
Very cool as usual. This might work well with fewer image-shapes, using the "film strip" technique:
Visio Film Strip Shapes: Hurray for Hollywood! (http://www.visguy.com/2007/09/25/visio-film-strip-shapes-hurray-for-hollywood)
Thank you, Visio Guy.
It is great!
I am going to change my way to your "film strip" technique.
Thanks again.
Your "film strip" technique is excellent.
I tried your method.
1. I tried to fill a circle with film strip image.
However I met a problem that custom fill
pattern seems not support trimming operation of image.
2. I tried direct film strip jpg and png image to the Earth.
but I had a problem of background.
I wish the shape of the Earth is round to place
at the center of rotating shapes that runs around the Earth.
Then, I revised my macro, "Rotate", so as to change the parameter of USE function.
It also reduced the number of shapes, but could not reduce the number images.
Here is my latest rotating Earth.
You can rotate the Earth by double-clicking the Earth or
manually change the angle by selecting items among shape data table.
And please enable macro.
Anyway thank you, Visio Guy.
My rotating earth has another problem.
The problem is portability.
Custom fill pattern is not portable.
My rotating earth needs 12 fill patterns.
I could not found any magic to copy them.
Then I thought I had to write VBA macro to copy custom fill patterns.
Attatched stencil(vss file) has the macro that copies fill patterns
when you drop earth on the Visio drawing page.
The macro to copy fill patterns from stencil to opened drawing is simple.
Sub DropStencilMaster()
Dim I As Long
Dim mst As Visio.Master
For Each mst In ActiveDocument.Masters
If mst.Name = "earth1" Then
Exit Sub
End If
Next
For I = 1 To 12
ActiveDocument.Masters.Drop ThisDocument.Masters("earth" & I), 0, 0
Next
End Sub
In this macro ActiveDocument is the drawing and ThisDocument is the stencil.
This macro is written in the stencil.
Attatched image is rotation Earth on Visio 2010.
Custom fill patterns in the stencil copied to the drawing by the macro above.
Here is the animation GIF that has rotating Earth at the center of orbiting Visio Guy.
Please click the image, and animation starts.