Hilfe:Karten/Minimap-Hotspots-Scripte

Eine Sammlung von Scripten, um Minimap-Hotspots zu erstellen:

VBA

Ein Codeschnipsel für ein Word-Makro, das das aktive Dokument mit den entsprechenden Vorlagendefinitionen überschreibt. Die Konstanten am Anfang des Makros müssen natürlich entsprechend angepasst werden.

Sub MakeMinimapHotspots()
Const StartX = -825
Const StopX = -821
Const StartY = -780
Const StopY = -776
Const RangeX = 15 ' Breite des Bereichs in Pixeln
Const RangeY = 15 ' Höhe des Bereichs in Pixeln


Dim x As Integer
Dim y As Integer
Dim px As Integer
Dim py As Integer

  
  '' Achtung: alles im aktiven Dokument wird gelöscht:
  Selection.WholeStory
  Selection.Delete
  
  For y = StartY To StopY
    px = 0
    For x = StartX To StopX
      Selection.TypeText "{{Link-Div|#" & CStr(x) & "," & CStr(y) & "|" & CStr(RangeX) & "px|" & RangeY & "px|position:absolute;left:" & CStr(px) & "px;top:" & CStr(py) & "px;z-index:2;}}"
      Selection.TypeParagraph
      px = px + 15
    Next x
    py = py + 15
  Next y
End Sub