Hilfe:Karten/Minimap-Hotspots-Scripte: Unterschied zwischen den Versionen

aus FreewarWiki, der Referenz für Freewar
Zur Navigation springen Zur Suche springen
K (VBA-Script zum Erstellen von Minimap-Hotspots)
 
K (+Zurück-Link)
Zeile 1: Zeile 1:
<div id="contentSub"><span class="subpages">&lt; [[Hilfe:Karten]]</span></div>
Eine Sammlung von Scripten, um Minimap-Hotspots zu erstellen:
Eine Sammlung von Scripten, um Minimap-Hotspots zu erstellen:


Version vom 21. Oktober 2008, 22:24 Uhr

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
Abgerufen von „https://fwwiki.de/index.php?title=Hilfe:Karten/Minimap-Hotspots-Scripte&oldid=154697“