vba - Google Earth API を使用してカラー スクリーンショットを撮るには?

Question

Excel VBA で Google Earth API を使用しています。スクリーンショットは、カラーではなく白黒で提供されます。私が間違っているところを教えてください。

Dim ge As earthlib.ApplicationGE

Set ge = New ApplicationGE

Dim kmlString As Variant

kmlString = "C:\temp\test.kmz"

ge.OpenKmlFile (kmlString, 1)

Dim tPlace As earthlib.FeatureGE

Set tPlace = ge.GetTemporaryPlaces

Dim fldrPath As String, jpgName as String

fldrPath = "C:\temp\"

jpgName = fldrPath & "outJpg1.JPG"

ge.SaveScreenShot (jpgName, 100)

Answer 1

このドキュメントで見つけたコメントは、これが設計によるものであることを示唆しています。ただし、代わりに何をすべきかを示唆するものは何も見つかりませんでした。

/// \brief Takes low quality black and white screen shot
/// of the current camera view.
///
/// This image is not meant to  be used for rapid capture and degrades
/// in quality if used frequently.
///
/// \param fileName Full path JPG filename of output screen shot.
/// \param quality Quality factor of output image. Lowest quality is
/// \c 0 and highest quality is \c 100. Input quality is always clamped
/// to (\c 0, \c 100) inclusive.
///
/// \retval S_OK Successfully saved screen shot.
/// \retval (other) Appropriate error code.
[id(5), helpstring("method SaveScreenShot")]
HRESULT SaveScreenShot([in] BSTR fileName, [in] long quality);