VBA relative Objekt Position

[Pucki]

Funktioniert perfekt.  

Jetzt kann ich die Schrift 1-2 Punkte größer machen ohne das es wirklich Platz kostet.


Was die Hilfe angeht, bei Corel. Die ist einfach zu schwach.  Bei VB gibt es in 30-40% aller Fälle ein Codeschnipsel. Und was viel wichtiger ist, eine "Vererbungshierarchie" die in den Stufen anklickbar ist.  Ich weiß ergo bei jeden Befehl genau wo der her kommt.

Und bei Objekten ein Tabelle mit allen Eigenschaften und Methoden.  Da klicke ich ein mir unbekanntes Objekt an, und sehe den ganzen Baum.  Finde ich viel besser.  Corel ist echt geizig.

Ich muss aber jetzt sagen dank deine Hilfe sieht meine Preisliste viel besser aus, und ist von 8 auf 5 Seiten gefallen in der Größe.

Gruß


    Pucki

[Pucki]

hi

Leider möchte mein Chefe das ich die Produkte in Gruppen mache.


Deshalb + weil ich mit der Corel-Hilfe auf Kriegsfuß stehe bräuchte ich noch mal deine Hilfe für einen Befehl.

Wie kann ich mehre Zellen in einer Zelle verbinden, so das es in diese Zeile KEINE Spaltenlinien gibt.

Von Hand in Corel geht das, in den ich den Bereich markiere, Recht Maustaste, und Zellen verbinden.

Nochmal vielen Dank für deine Hilfe.

Gruß

   Pucki

[koter]

Hallo Pucki,

Merge ist der Befehl, den Du suchst.

Code:

Sub ZellenVerbinden()
   Dim tab_1 As Shape
   Dim tab_1C As CustomShape
   Dim ZellBereich As Object
   Dim Zeile As Integer, Spalte As Integer, i As Integer
   
   Set tab_1 = ActivePage.Shapes("Tabelle1")
   Set tab_1C = tab_1.Custom
   Set ZellBereich = tab_1C.CreateEmptyCellRange
   
   Zeile = 3
   Spalte = 2
   For i = 0 To 2
       ZellBereich.AddCell tab_1C.Cell(Spalte + i, Zeile)
   Next i
   ZellBereich.Merge
End Sub

Der Code legt einen Zellbereich an und verbindet dessen Zellen.

Wenn Du die Zellen eines vorhandenen Zellbereichs verbinden willst, musst Du natürlich keinen anlegen.
Alle Zellen einer Zeile kannst Du z.B. mit tab_1C.Rows(1).Cells.All.Merge verbinden.

Gruß

Koter

[Pucki]

Vielen Dank für deine Antwort. Sie hat mir wie immer sehr geholfen.


Ich habe übrigens falls es dich interessiert das Problem mit der Online-Hilfe erkannt.

In meiner X4-Version ist das Tabellen-Objekt zu neu.  Deshalb nimmt es keine Makroaufzeichungen an, und ist in der Hilfe nicht vorhanden. Jedenfalls bringt eine Suche nach "Table" bzw. "Tabelle" nix.

Und leider habe ich deshalb kein Objekt-Baum für das Tabellen-Objekt.  Weshalb es sehr sehr schwer ist, heraus zu finden, welche Funktion unter welchen "Strang" drin ist.  So ein Bäumchen habe ich nämlich als PDF für die anderen Objekte.

Aber ist ja immer so. Die Dokumentation hängt der Realität hinterher.

Gruß

    Pucki

[koter]

Hallo Pucki,

Ich habe übrigens falls es dich interessiert das Problem mit der Online-Hilfe erkannt...

das interessiert mich sogar sehr weil ich befürchte, dass Du das Problem noch nicht erkannt hast.
Ich vermute, dass Du VBA und CorelDraw gedanklich noch nicht ausreichend trennst. In Beitrag 20 habe ich schon einmal darauf hingewiesen.

...In meiner X4-Version ist das Tabellen-Objekt zu neu.  Deshalb nimmt es keine Makroaufzeichungen an, und ist in der Hilfe nicht vorhanden. Jedenfalls bringt eine Suche nach "Table" bzw. "Tabelle" nix...

Möglicherweise schaust Du in der falschen Hilfe. In der VBA-Hilfe steht (auch in neueren Versionen) nichts über das Corel-Tabellen-Objekt. Die VBA-Hilfe stammt (wie VBA selbst) von Microsoft und beschreibt nur die Sprachelemente dieser Programmiersprache. VBA steckt ja auch in anderen Programmen wie AutoCad oder Excel. Wären alle Objekte aller Wirtsanwendungen aller Hersteller in der Hilfe beschrieben, wäre das Ding auch reichlich überfrachtet.

Das Corel-Tabellen-Objekt ist in der Objektreferenz der Corel-VBA-Hilfe beschrieben. Bei Deiner Version wäre das die „draw_vba.chm“. Wenn Du diese mit installiert hast, sollte sie im Unterordner „Programs“ des Corel-Ordners zu finden sein.

Screenshot:

...Aber ist ja immer so. Die Dokumentation hängt der Realität hinterher...

Das ist leider oft so. In diesem Falle scheint mir aber alles ausreichend dokumentiert zu sein. Die Hilfe neuerer Versionen ist nicht mehr in CHM-Dateien sondern Online. Wenn Du hier in der neusten Version nachschaust, wirst Du sehen, dass sich nichts geändert hat. Immer noch die selben 9 Eigenschaften und 10 Methoden.

Mit den Aufzeichnungsmöglichkeiten ist es in neueren Versionen auch nicht besser bestellt.
Was die Programmierung von Tabellen betrifft, bist Du also auch mit X4 immer noch auf dem neuestem Stand.

Die Codeschnipsel, die Du so vermisst, gibt es auch in der neuesten Hilfe nicht. Aber die kannst Du Dir ja hier im Forum „maßschneidern“ lassen. 

Gruß

Koter

[Pucki]

Ich verrate dir ein Geheimnis.

Ich habe die Datei aber ich habe bis ich dein Betrag gehört habe, noch nie was von ihr gehört.

Der Fehler liegt aber bei Corel. Wenn ich im Makro-Editor F1 drücke, erwarte ich genau DIESE Hilfe. Was ich bekomme ist VBA für Anfänger. . Ich habe mir mal die Fenster-Überschrift beider Hilfen verglichen und dann den Unterschied erkannt.

Ich habe mir jetzt eine Verlinkung auf den Desktop gemacht, damit ich die ja nicht wieder vergesse. Weil DA ist die Hilfe drin, die ich wirklich brauche. VB kann ich im Schlaf. VBA ist sehr leicht anders, aber die Befehle sind i.d.R. mit Standart-Tricks  1:1 an das DLL-Objekt in VB umzusetzen.

Es kommt nämlich sehr selten vor, das ich die Dateien in einen Programmverzeichnis mir näher anschaue.

Und wieder hast du mir einen sehr sehr wertvollen Tipp gegeben.  EHRLICH.  Die Datei hätte ich sonst nie geöffnet.

Gruß

   Pucki

[Pucki]

Auch wenn es schon lange her ist, hätte ich doch noch  eine Frage die nun auftritt.

Wie kann ich von einer bestimmten Zelle den Rahmen entfernen. 

Sinn des ganzen ist es, das in der Tabelle einfach eine Sichtbare Unterbrechung ist, so das es für den Benutzer aussieht als wären es 2 Tabellen.

Und wie kann ich eine  Zelle einfärben.

Vielen Dank für deine Hilfe.

Gruß

   Pucki

[koter]

Hallo Pucki,

Auch wenn es schon lange her ist...

Das macht nichts! Um auch alte Themen weiterführen zu können, werden sie hier im Forum so gut wie nie geschlossen oder als gelöst markiert.

Um die „optische Unterbrechung“ zu erzeugen, kannst Du die Rahmenbreiten einer Zeile auf Null setzen:

Code:

Sub ZeileOhneRahmen()
   Dim tab_1 As Shape
   Dim tab_1C As CustomShape
   
   ActiveDocument.Unit = cdrMillimeter
   Set tab_1 = ActivePage.Shapes("Tabelle1")
   Set tab_1C = tab_1.Custom
   
   With tab_1C.Rows(4).Cells.All.Borders
       .Vertical.Width = 0
       .Left.Width = 0
       .Right.Width = 0
   End With
   
End Sub

So kannst Du eine Zelle einfärben:

Code:

tab_1C.Cells(5).Fill.UniformColor = CreateCMYKColor(0, 0, 50, 0)

Gruß

Koter