Latest Contributions by DuncanHornby

Susanne, The reason you are only seeing 2 layers reported is because the sequence is incorrect your code should be: Dim pEnumLayer As IEnumLayer = pMap.Layers(Nothing, True) pEnumLayer.Reset() Dim pLayer As ILayer = pEnumLayer.Next() Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder() While Not pLayer Is Nothing   sb.Append(pLayer.Name)   pLayer = pEnumLayer.Next() End While MsgBox(sb.ToString()) To understand this you have created an enumerate and get the first layer, as this not nothing it enters the While loop. It appends the name and then gets the next layer. Your original code had the get next layer code before you ever added it to stringbuilder so this is why it skipped a layer name. ... View more

Is this what you want? To call a geoprocessing tool and see its interface? This code is in VBA. Public Sub OpenCalculateTool()     ' Hook into Toolbox and get the tool     Dim pUID As New UID     pUID = "esriGeoprocessingUI.ArcToolboxExtension"     Dim pArcToolboxExtension As IArcToolboxExtension     Set pArcToolboxExtension = Application.FindExtensionByCLSID(pUID)     Dim pArcToolbox As IArcToolbox     Set pArcToolbox = pArcToolboxExtension.ArcToolbox     Dim pGPTool As IGPTool     Set pGPTool = pArcToolbox.GetToolbyNameString("CalculateField")     ' Create messages, required by Invoke method     Dim msgs As IGPMessages     Set msgs = New GPMessages     ' Get existing parameter structure     Dim pArray As IArray     Set pArray = pGPTool.ParameterInfo     ' Declare Parameter interfaces     Dim pGPParameter As IGPParameter     Dim pGPDataType As IGPDataType     Dim pGPParameterEdit As IGPParameterEdit     ' Set the parameters of the tool     Set pGPParameter = pArray.Element(0)     Set pGPParameterEdit = pGPParameter     Set pGPDataType = pGPParameter.DataType     Set pGPParameterEdit.Value = pGPDataType.CreateValue("a") ' Featurelayer name     Set pGPParameter = pArray.Element(1)     Set pGPParameterEdit = pGPParameter     Set pGPDataType = pGPParameter.DataType     Set pGPParameterEdit.Value = pGPDataType.CreateValue("xx") ' Field     Set pGPParameter = pArray.Element(3)     Set pGPParameterEdit = pGPParameter     Set pGPDataType = pGPParameter.DataType     Set pGPParameterEdit.Value = pGPDataType.CreateValue("VB")     ' Open the tool     Dim pGPToolCommandHelper As IGPToolCommandHelper2     Set pGPToolCommandHelper = New GPToolCommandHelper     pGPToolCommandHelper.SetTool pGPTool     pGPToolCommandHelper.InvokeModal 0, pArray, True, msgs End Sub ... View more

Joshua, I wonder if the technique I pointed to expects your graphics to be simple fills? Below are two polygons one a simple blue fill the other a picture file. I run the code as described in that link and I get below; so it works well with simple fill but not great with the picture fill. The code was: Public Sub MakeTransparent()     ' Get map document     Dim pMXDoc As IMxDocument     Set pMXDoc = ThisDocument     ' Get Map     Dim pMap As IMap     Set pMap = pMXDoc.FocusMap     ' Get Graphics Container for map     Dim pGC As IGraphicsContainer     Set pGC = pMap     pGC.Reset     ' Get first graphic, assumed to be polygon     Dim pElement As IElement     Set pElement = pGC.Next     Dim rgb As IRgbColor     Set rgb = New RgbColor     rgb.Red = 255        Do While Not pElement Is Nothing         ' Get symbol of graphic and its colour         Dim pFillShapeElement As IFillShapeElement         Set pFillShapeElement = pElement         Dim pFillSymbol As IFillSymbol         Set pFillSymbol = pFillShapeElement.Symbol         Dim pColour As IColor         Set pColour = pFillSymbol.Color         Dim psym As ISymbol         Set psym = pFillSymbol         psym.ROP2 = esriROPMaskPen         pFillSymbol.Color = rgb         pFillShapeElement.Symbol = pFillSymbol         Set pElement = pGC.Next     Loop        ' Refresh map     pMXDoc.ActiveView.Refresh End Sub ... View more