|
|||||||||
Home >> All >> com >> eireneh >> bible >> control >> [ map overview ] | PREV CLASS NEXT CLASS | ||||||||
SUMMARY: ![]() ![]() ![]() |
DETAIL: FIELD | CONSTR | METHOD |
com.eireneh.bible.control.map
Class VBAExport

java.lang.Objectcom.eireneh.bible.control.map.VBAExport
- public class VBAExport
- extends java.lang.Object
VBAExport takes a Map and exports the data to a Word VBA file. This was developed from a VB macro that looked something like this:
Attribute VB_Name = "NumberLine" Option Explicit Dim shape As FreeformBuilder Private Const box_width As Single = 20# Private Const box_height As Single = 20# '------------------------------------------------------------------------------- Public Sub RouteMain() RouteStart 100#, 100#, "1" RouteContinue 110#, 110#, "2" RouteContinue 120#, 120#, "3" RouteContinue 130#, 120#, "4" RouteContinue 130#, 130#, "5" RouteContinue 100#, 130#, "6" RouteContinue 90#, 100#, "7" RouteEnd End Sub '------------------------------------------------------------------------------- Private Sub RouteStart(x As Single, y As Single, display As String) Set shape = ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x, y) RouteAddText x, y, display End Sub '------------------------------------------------------------------------------- Private Sub RouteContinue(x As Single, y As Single, display As String) shape.AddNodes msoSegmentLine, msoEditingAuto, x, y RouteAddText x, y, display End Sub '------------------------------------------------------------------------------- Private Sub RouteEnd() Dim route As ShapeRange shape.ConvertToShape.Select Set route = Selection.ShapeRange route.Fill.Visible = msoFalse route.Fill.Transparency = 0# route.Line.Weight = 0.75 route.Line.DashStyle = msoLineSolid route.Line.Style = msoLineSingle route.Line.Transparency = 0# route.Line.Visible = msoTrue route.Line.ForeColor.RGB = RGB(255, 0, 0) route.Line.BackColor.RGB = RGB(255, 255, 255) route.Line.BeginArrowheadLength = msoArrowheadLengthMedium route.Line.BeginArrowheadWidth = msoArrowheadWidthMedium route.Line.BeginArrowheadStyle = msoArrowheadNone route.Line.EndArrowheadLength = msoArrowheadLengthMedium route.Line.EndArrowheadWidth = msoArrowheadWidthMedium route.Line.EndArrowheadStyle = msoArrowheadNone 'route.LockAspectRatio = msoFalse 'route.Height = 115.35 'route.Width = 333.05 'route.Rotation = 0# 'route.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn 'route.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph 'route.LockAnchor = False 'route.WrapFormat.AllowOverlap = True 'route.WrapFormat.Side = wdWrapBoth 'route.WrapFormat.DistanceTop = CentimetersToPoints(0) 'route.WrapFormat.DistanceBottom = CentimetersToPoints(0) 'route.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) 'route.WrapFormat.DistanceRight = CentimetersToPoints(0.32) 'route.WrapFormat.Type = 3 route.ZOrder msoSendToBack route.IncrementLeft box_width / 2 route.IncrementTop box_height / 2 End Sub '------------------------------------------------------------------------------- Private Sub RouteAddText(x As Single, y As Single, display As String) Dim box As shape Set box = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, x, y, box_width, box_width) box.TextFrame.TextRange.Text = display box.Fill.Visible = msoFalse box.Fill.Transparency = 0# box.Line.Weight = 0.75 box.Line.DashStyle = msoLineSolid box.Line.Style = msoLineSingle box.Line.Transparency = 0# box.Line.Visible = msoFalse 'box.ScaleWidth 0.38, msoFalse, msoScaleFromTopLeft 'box.ScaleHeight 0.25, msoFalse, msoScaleFromTopLeft 'box.LockAspectRatio = msoFalse 'box.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn 'box.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph 'box.LockAnchor = False 'box.WrapFormat.AllowOverlap = True 'box.WrapFormat.Side = wdWrapBoth 'box.WrapFormat.DistanceTop = CentimetersToPoints(0) 'box.WrapFormat.DistanceBottom = CentimetersToPoints(0) 'box.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) 'box.WrapFormat.DistanceRight = CentimetersToPoints(0.32) 'box.WrapFormat.Type = 3 'box.ZOrder 5 'box.TextFrame.MarginLeft = 7.09 'box.TextFrame.MarginRight = 7.09 'box.TextFrame.MarginTop = 3.69 'box.TextFrame.MarginBottom = 3.69 'box.IncrementLeft 47.7 'box.IncrementTop 47.7 'box.Left = CentimetersToPoints(1) 'box.Top = CentimetersToPoints(0.23) 'box.Height = 18.15 'box.Width = 26.95 End Sub '-------------------------------------------------------------------------------
Distribution Licence: Project B is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License, version 2 as published by the Free Software Foundation. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. The License is available on the internet here, by writing to Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA, Or locally at the Licence link below. The copyright to this program is held by it's authors. |
- Version:
- D0.I0.T0
Field Summary | |
private int |
x_mag
The x magnification factor |
private int |
y_mag
The y magnification factor |
Constructor Summary | |
VBAExport()
Basic constructor |
Method Summary | |
void |
export(Map map,
java.io.PrintWriter out)
Export the given Map file to the given stream |
protected static void |
exportPreamble(java.io.PrintWriter out)
The common bits at the start of every file |
protected static void |
exportSubRouteAddText(java.io.PrintWriter out)
The common bits at the start of every file |
protected static void |
exportSubRouteContinue(java.io.PrintWriter out)
The common bits at the start of every file |
protected static void |
exportSubRouteEnd(java.io.PrintWriter out)
The common bits at the start of every file |
protected static void |
exportSubRouteStart(java.io.PrintWriter out)
The common bits at the start of every file |
void |
setXMagnification(int x_mag)
How much do we magnify the original coords (0.0 - 1.0) by to get the desired output range. |
void |
setYMagnification(int y_mag)
How much do we magnify the original coords (0.0 - 1.0) by to get the desired output range. |
Methods inherited from class java.lang.Object |
clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait |
Field Detail |
x_mag
private int x_mag
- The x magnification factor
y_mag
private int y_mag
- The y magnification factor
Constructor Detail |
VBAExport
public VBAExport()
- Basic constructor
Method Detail |
setXMagnification
public void setXMagnification(int x_mag)
- How much do we magnify the original coords (0.0 - 1.0) by to get
the desired output range. The default is 500 which will fit on an
A4 sheet of paper
setYMagnification
public void setYMagnification(int y_mag)
- How much do we magnify the original coords (0.0 - 1.0) by to get
the desired output range. The default is 500 which will fit on an
A4 sheet of paper
export
public void export(Map map, java.io.PrintWriter out)
- Export the given Map file to the given stream
exportPreamble
protected static void exportPreamble(java.io.PrintWriter out)
- The common bits at the start of every file
exportSubRouteStart
protected static void exportSubRouteStart(java.io.PrintWriter out)
- The common bits at the start of every file
exportSubRouteContinue
protected static void exportSubRouteContinue(java.io.PrintWriter out)
- The common bits at the start of every file
exportSubRouteEnd
protected static void exportSubRouteEnd(java.io.PrintWriter out)
- The common bits at the start of every file
exportSubRouteAddText
protected static void exportSubRouteAddText(java.io.PrintWriter out)
- The common bits at the start of every file
|
|||||||||
Home >> All >> com >> eireneh >> bible >> control >> [ map overview ] | PREV CLASS NEXT CLASS | ||||||||
SUMMARY: ![]() ![]() ![]() |
DETAIL: FIELD | CONSTR | METHOD |