Rotating Earth

[JuneTheSecond]

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.

[Visio Guy]

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!

[JuneTheSecond]

Thank you, Visio Guy.

It is great!
I am going to change my way to your "film strip" technique.

Thanks again.

[JuneTheSecond]

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.
   

[JuneTheSecond]

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.

[JuneTheSecond]

The macro to copy fill patterns from stencil to opened drawing is simple.

Code Select Expand


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.

[JuneTheSecond]

Attatched image is rotation Earth on Visio 2010.
Custom fill patterns in the stencil copied to the drawing by the macro above.

[JuneTheSecond]

Here is the animation GIF that has rotating Earth at the center of orbiting Visio Guy.
Please click the image, and animation starts.