Mapamundi de día y de noche

Posted on marzo 08, 2022 by Excel Pedro Wave

🔝To translate this blog post to your language, select it in the top left Google box.

Mapamundi con relojes

En el anterior artículo publiqué un Mapa con Relojes Mundiales que puedes descargar desde aquí:

Excelente Mapa con Relojes Mundiales | #ExcelPedroWave

Cuando se abre el mapamundi, aparece la imagen del planeta Tierra, con las zonas de luz y de oscuridad representando las regiones en las que es de día y en las que es de noche.

Como algunos me habéis preguntado cómo se consigue actualizar la imagen de la Tierra, en este artículo explicaré cómo es posible actualizar el mapamundi con las zonas en las que es de día y en las que es de noche, como en esta imagen de las 24 horas del día 2022-03-02 (formato de fecha ISO 8601).

Proyección cartográfica

Para generar el mapamundi se emplea una Proyección cilíndrica equidistante, que también se puede llamar proyección latitud-longitud, por lo que se ha convertido en un estándar en aplicaciones informáticas para procesar mapas globales, por su correspondencia entre píxeles y su posición geográfica.

Este tipo de proyecciones cilíndricas planas no respetan el tamaño real de los países y continentes, pero es fácil obtener la latitud y la longitud de cualquier punto en el mapamundi, cosa que me sirvió para poder geolocalizar cualquier ciudad o pueblo del Mundo en el mapa.

Un ejemplo de este tipo de mapamundis lo tienes en esta página en inglés, que te permite moverte por todo el mundo:

Template:Clickable world map - Wikipedia

Que los mapamundis se vean planos no quiere decir que nuestro planeta sea plano sino que es una forma cómoda de verlo en un mapa en 2D. Si no crees que el planeta Tierra es una esfera, como cualquier otro astro, no sigas leyendo.

Ni que decir tiene que los "terraplanistas" no usan proyecciones cilíndricas planas para representar la Tierra, sino un tipo de “proyección acimutal equidistante centrada en el Ártico”, vista desde el Polo Norte. Enlace aquí.

Vista de la Tierra

Las imágenes con la vista de la Tierra, que se cargan en el mapamundi al abrir el Mapa con Relojes Mundiales y que se refrescan cada 15 minutos, se extraen desde la siguiente página:

Earth View (fourmilab.ch)

En esta página están los Créditos a los participantes en su desarrollo, empezando por John Walker:

Earth and Moon Viewer: Credits (fourmilab.ch)

Estas son algunas de las imágenes del planeta Tierra que se pueden obtener de esas páginas, a las que se les puede añadir el día y la noche:

¡A que es hermoso el único planeta que conocemos con vida!

¡A que merece la pena conservarlo entre todos!

¡A que no podemos dejar que lo destruyan, ni las armas, ni el cambio climático, ni los humanos, ni los divinos!

Cómo insertar el mapamundi

En el módulo modMapa está la función: ActualizarMapa, que se encarga de situar el mapamundi en su posición, y de cargar la imagen del mapamundi, actualizada con las zonas de día y de noche.

Este es su código:

Function ActualizarMapa(bMapa As Boolean) As Boolean
'
' Actualiza el mapamundi
'
    Dim sMapa As String
    Dim fso As Object
    Dim sError As String
    
    On Error Resume Next
   
    With Sheets("Mundo")
    
        ' Situa el mapamundi
        .Mapa.Top = .Range("B7").Top
        .Mapa.Left = .Range("B7").Left
        .Mapa.Width = .Range("B7:Y7").Width
        .Mapa.Height = .Range("B7:B36").Height
        
    End With
        
    With Sheets("Mundo").Mapa
        
        If bMapa = True Or .Picture Is Nothing Then
            sMapa = ThisWorkbook.Path & "\WorldMapDayNight.jpg"
            Set fso = CreateObject("Scripting.FileSystemObject")
            If bMapa = False And fso.FileExists(sMapa) Then
                .Picture = LoadPicture(sMapa)
            Else
'                If DownloadFile("https://www.fourmilab.ch/cgi-bin/Earth?img=learth.evif&imgsize=320&dynimg=y&opt=-p&lat=&lon=&alt=&tle=&date=0&utc=&jd=", _
'                                MapaMundo, OverwriteKill, ErrorTxt) Then
                If DownloadFile("https://www.fourmilab.ch/cgi-bin/Earth?img=learth.evif&imgsize=320&dynimg=n&opt=-p", _
                                sMapa, OverwriteKill, sError) Then
                    If fso.FileExists(sMapa) Then
                        .Picture = LoadPicture(sMapa)
                    End If
                End If
            End If
            If .Picture Is Nothing Then
                MsgBox WorksheetFunction.VLookup(Sheets("Idiomas").Range("A55"), [TablaIdiomas], [Total_Idiomas], False) & _
                    ": " & vbNewLine & sMapa, vbCritical, _
                    WorksheetFunction.VLookup(Sheets("Idiomas").Range("A54"), [TablaIdiomas], [Total_Idiomas], False)
            End If
            Set fso = Nothing
            ActualizarMapa = True
        Else
            ActualizarMapa = False
        End If
        
    End With
    
End Function

La descarga de la imagen se hace con la función DownloadFile, que está en el módulo: modDownloadFile, obtenido de esta página web:

Downloading A File (cpearson.com)

Esta función descarga un archivo desde la web:

Earth (640×320) (fourmilab.ch)

que es una imagen de la Tierra en tiempo real, y que se guarda en la ruta del archivo Excel así:

sMapa = ThisWorkbook.Path & "\WorldMapDayNight.jpg"

Esa imagen jpg, se carga en el mapamundi con esta función:

Sheets("Mundo").Mapa.Picture = LoadPicture(sMapa)

Con lo que se obtiene una instantánea de la imagen animada con la que comencé este artículo, que se inserta en el mapamundi con relojes y que se refresca cada 15 minutos.

Para descargar este Mapa con Relojes Mundiales visita esta página:

Excelente Mapa con Relojes Mundiales | #ExcelPedroWave

Si te ha gustado coméntalo, y si no también...

No Response to "Mapamundi de día y de noche"

Comenta este artículo, critícalo o avisa si detectas algún error que haya que corregir.

#ExcelPedroWave

Traducir el blog