<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Zoom with Hyperlink in Mapping Questions</title>
    <link>https://community.esri.com/t5/mapping-questions/zoom-with-hyperlink/m-p/14016#M186</link>
    <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;SPAN&gt;Hi, &lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;Anybody can help me?&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;I work in ArcGIS 9.3 I need to zoom diferent features with Hyperlink (Nom_Loc is Hyperlink camp in dbf table)&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;I run a macro, first select feature after use Hyperlink, but I don't have use select feature, I need only zoom with Hyperlink. &lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;Macro:&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;SPAN&gt;Sub ZoomLink(pLink, pLayer)&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pHyperlink As IHyperlink&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pFLayer As IFeatureLayer&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pCmdItem As ICommandItem&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pUID As New UID&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; pUID.Value = "{AB073B49-DE5E-11D1-AA80-00C04FA37860}"&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pMap As IMap&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pmxDoc As IMxDocument&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pHyperlink = pLink&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pFLayer = pLayer&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pCmdItem = ThisDocument.CommandBars.Find(pUID)&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pmxDoc = ThisDocument&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pMap = pmxDoc.FocusMap&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; pCmdItem.Execute&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; End Sub&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;SPAN&gt;When I run macro, windows appear "Argument not optional", I don't know why. Any attempt to help will be very appreciated..&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt; Thanks in advance...&lt;/SPAN&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
    <pubDate>Mon, 16 Jul 2012 03:24:16 GMT</pubDate>
    <dc:creator>MoisésCaballero</dc:creator>
    <dc:date>2012-07-16T03:24:16Z</dc:date>
    <item>
      <title>Zoom with Hyperlink</title>
      <link>https://community.esri.com/t5/mapping-questions/zoom-with-hyperlink/m-p/14016#M186</link>
      <description>&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;SPAN&gt;Hi, &lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;Anybody can help me?&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;I work in ArcGIS 9.3 I need to zoom diferent features with Hyperlink (Nom_Loc is Hyperlink camp in dbf table)&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;I run a macro, first select feature after use Hyperlink, but I don't have use select feature, I need only zoom with Hyperlink. &lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;Macro:&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;SPAN&gt;Sub ZoomLink(pLink, pLayer)&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pHyperlink As IHyperlink&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pFLayer As IFeatureLayer&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pCmdItem As ICommandItem&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pUID As New UID&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; pUID.Value = "{AB073B49-DE5E-11D1-AA80-00C04FA37860}"&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pMap As IMap&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Dim pmxDoc As IMxDocument&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pHyperlink = pLink&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pFLayer = pLayer&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pCmdItem = ThisDocument.CommandBars.Find(pUID)&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pmxDoc = ThisDocument&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; Set pMap = pmxDoc.FocusMap&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; pCmdItem.Execute&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt;&amp;nbsp; End Sub&lt;/SPAN&gt;&lt;BR /&gt;&lt;BR /&gt;&lt;SPAN&gt;When I run macro, windows appear "Argument not optional", I don't know why. Any attempt to help will be very appreciated..&lt;/SPAN&gt;&lt;BR /&gt;&lt;SPAN&gt; Thanks in advance...&lt;/SPAN&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
      <pubDate>Mon, 16 Jul 2012 03:24:16 GMT</pubDate>
      <guid>https://community.esri.com/t5/mapping-questions/zoom-with-hyperlink/m-p/14016#M186</guid>
      <dc:creator>MoisésCaballero</dc:creator>
      <dc:date>2012-07-16T03:24:16Z</dc:date>
    </item>
  </channel>
</rss>

