Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Main
- 'Declare the variable that will reference the application
- Dim SurferApp As Object
- Set SurferApp = CreateObject("Surfer.Application")
- SurferApp.Visible = True
- 'Declares Plot as an object
- Dim Plot As Object
- Set Plot = SurferApp.Documents.Add
- 'Creates a post map and assigns the map frame to the variable "MapFrame"
- Set PostMapFrame = Plot.Shapes.AddPostMap("${PATH}")
- 'Declares PostMap as an Object and assigns the post map to variable "PostMap"
- Dim PostMap As Object
- Set PostMap = PostMapFrame.Overlays(1)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement