[Gelöst] ??Überschrift ohne Rahmen??

SiRo

Newbie

Beiträge: 39

[Gelöst] ??Überschrift ohne Rahmen??

« am: Juni 12, 2009, 09:39:58 »

Hallo,
Um die darstellung zu verbessern wurde ich geben eine Überschrift mit einfzufügen.
Das hab ich auch gemacht nur das Problem ist
1. ich habe einen Rahmen
2. ich kann weder die Farbe noch die Schriftart ändern

Ich habe es folgendermassen gelöst:

Zitat

Dim ueberschrift As String
   Dim textbox As Long
   Dim layoutNew As rgLayout

   ueberschrift = "BlaBlub"
   textbox = layoutNew.InsertText(left, top - 13000, width, 1000)
   Call layoutNew.SetObjectText(textbox, ueberschrift)

Nun die frage gibt es überhaupt eine möglichkeit per VBA, die oben genanten eigenschaften, zu ändern
wenn "ja" wie?

Gruß
SiRo


« Letzte Änderung: Juni 12, 2009, 11:40:58 von SiRo »	Gespeichert

Nobody is perfect but Nobody is perfect

paff

Administrator
Hero Member

Beiträge: 820

Re: ??Überschrift ohne Rahmen??

« Antwort #1 am: Juni 12, 2009, 11:16:39 »

Layout Elemente können genau wie Kartenobjekte mit GetObjctBrush/ GetObjectPen für Linien ausgelesen werden
Dann das cPen Objekt ändern und mit SetObjectPen wieder einlesen


	Gespeichert

Follow RegioGraph on Twitter
http://twitter.com/regiograph

SiRo

Newbie

Beiträge: 39

Re: [Gelöst] ??Überschrift ohne Rahmen??

« Antwort #2 am: Juli 06, 2009, 01:59:55 »

Hallo Leute lang nichts mehr von einander gehört ^^
ich habe wieder mal ein problem mit der Überschrift.. bzw mit der Schrift im allgemeinem.

1. Problem
Ich möchte meine Überschrift nun zentrieren (diese problematik ist nicht mit Font zu lösen Roll Eyes

)
es gibt aber eine eigenschaft vom Layout Angry

Zitat

Call Layout.AlignObjects(alignRigh)

diese Funtkioniert leider nicht ... Huh

2. Problem
Ich würde gern die Schriften von den Städtenamen größer machen
wie stelle ich das am Dümsten an Huh

Muss ich wieder über jedes einzelne objekt auf der Karte durchlaufen und dort den Font setzen? Cry

oder gibt es da eine bessere und
vor allem schnellere möglichkeit? Grin

Gruß
SiRo


	Gespeichert

Nobody is perfect but Nobody is perfect

paff

Administrator
Hero Member

Beiträge: 820

Re: [Gelöst] ??Überschrift ohne Rahmen??

« Antwort #3 am: Juli 06, 2009, 06:46:32 »

ZU 2 . Es gibt eine Option -1 oder -2 , dann werden alle bzw alle markierten geändert
Zu 1. Layout.AlignObjects Huh

DU must schon die Textbox ansprechen , nicht das Objekt


	Gespeichert

Follow RegioGraph on Twitter
http://twitter.com/regiograph

SiRo

Newbie

Beiträge: 39

Re: [Gelöst] ??Überschrift ohne Rahmen??

« Antwort #4 am: Juli 07, 2009, 09:57:05 »

Zitat

Zu 1. Layout.AlignObjects Huh
DU must schon die Textbox ansprechen , nicht das Objekt

SRY Find ich leider nix zu.

Mein Code sieht momentan so aus:

Zitat

ueberschrift_alt = Split(variable, "|")
   ueberschrift = ueberschrift_alt(0)
   textbox = layoutNew.InsertText(left, top - 13000, width, 1000)
   Call layoutNew.SetObjectText(textbox, ueberschrift)
   Set Pen = layoutNew.GetObjectPen(textbox)
   Pen.Style(0) = psNull
   Pen.Style(1) = psNull
   Pen.Style(2) = psNull
   Call layoutNew.SetObjectPen(textbox, Pen)
   Set Brush = layoutNew.GetObjectBrush(textbox)
   Brush.BrushType = 0
   Call layoutNew.SetObjectBrush(textbox, Brush)
   Set Font = layoutNew.GetObjectFont(textbox)
   Font.Name = ueberschrift_alt(1)
   Font.lfHeight = CLng(ueberschrift_alt(2))
   Font.lfWidth = CLng(ueberschrift_alt(3))
   Call layoutNew.SetObjectFont(textbox, Font)
   Call layoutNew.FitInType


	Gespeichert

Nobody is perfect but Nobody is perfect

Seiten: [1]

Drucken

« vorheriges nächstes »