ラスター レイヤーから RasterDataset を取得

Dim pDataset As IDataset
Set pDataset = pRasterLayer

Dim pRasterWorkspace As IRasterWorkspace
Set pRasterWorkspace = pDataset.Workspace

Dim pRasterDataset As IRasterDataset
Set pRasterDataset = pRasterWorkspace.OpenRasterDataset(pDataset.Name)


'Nameオブジェクトを使用する方法
Dim pRasterLayer As IRasterLayer
Set pRasterLayer = pLayer

Dim pDataset As IDataset
Set pDataset = pRasterLayer

Dim pName As IName
Set pName = pDataset.FullName

Dim pRasterDataset As IRasterDataset
Set pRasterDataset = pName.Open

'----------------------

Dim pRasterAnalysisProps As IRasterAnalysisProps
Set pRasterAnalysisProps = pRaster
 
Dim pRasterDataset As IRasterDataset
Set pRasterDataset = pRasterAnalysisProps.RasterDataset