Zellen verbinden - geteilte Farbe????

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…STeve,
sozusagen Xl-Konkurrenz, LO/OOcalc (LibreOffice/OpenOffice).
Der PgmCode für dieses Problem kann so aussehen:

Rem 2 Zellen verbinden u.HGFarben als FarbVerlaufsGradientFarbStops verwenden
'   und ggf wieder trennen u.die 1.u.letzte GradientFarbe als HGFarbe setzen.
'   Hinweis: Mittlere FarbStopPositionen (colStPos) testen --> dunkel 
Sub Verbinden()
Const colStDgr As Integer = 0
Dim csx As Integer, frb(1) As Long, colStPos, vZ As Range
Set vZ = ActiveWindow.RangeSelection
colStPos = Array(0#, 0.4999, 0.5, 1#)
If vZ.Cells.Count = 2 Then
frb(0) = vZ.Cells(1).Interior.Color
frb(1) = vZ.Cells(2).Interior.Color
vZ.Merge
With vZ.Interior
.Pattern = xlPatternLinearGradient: .Gradient.Degree = colStDgr
.Gradient.ColorStops.Clear
For csx = 0 To UBound(colStPos)
With .Gradient.ColorStops.Add(colStPos(csx))
.Color = frb(csx \ 2)
End With
Next csx
End With
End If
End Sub
Sub Trennen()
Const colStDgr As Integer = 0
Dim csx As Integer, frb(1) As Long, vZ As Range, colSt As ColorStops
Set vZ = ActiveWindow.RangeSelection
If vZ.MergeCells And vZ.Cells.Count = 2 Then
With vZ.Interior
If .Pattern = xlPatternLinearGradient And .Gradient.Degree = colStDgr Then
Set colSt = .Gradient.ColorStops
frb(0) = colSt(1).Color: frb(1) = colSt(colSt.Count).Color
.Gradient.ColorStops.Clear: .Pattern = xlSolid: vZ.UnMerge
Else: Exit Sub
End If
End With
vZ.Cells(1).Interior.Color = frb(0)
vZ.Cells(2).Interior.Color = frb(1)
End If
End Sub

Für horizontale FarbTrennung muss die Konstante colStDgr auf 90 gesetzt wdn, schräg dazwischen bzw danach (<180).
Viel Erfolg! Luc :-?

…etwas intensiver befasst, Klaus,
bin aber nie ganz fertig geworden, weil dann anderes anstand. Hatte's dieses Jahr aber bei einem Projekt wieder aus der Versenkung geholt.
Problem dabei ist natürlich, dass das eigentlich Verlaufsfarben erzeugen soll und dieser Effekt sich folglich nicht ganz unterdrücken lässt. Wie gut der zu sehen ist, hängt auch von der Größe des Objekts ab. Ggf könnte man auch eine Kontrastfarbe wie bspw Schwarz zwischen die beiden Farben setzen, um eine größere Schärfe zu erreichen; das muss man halt ausprobieren.
Bei ZeichenObjekten wird dgl von Xl auch manuell angeboten. Daran könnte man sich ggf orientieren, auch an den dortigen FertigMustern.
Man kann das dann auch in HTML darstellen, muss aber beachten, dass es verschiedene Methoden gibt, die Browser verwenden, und deshalb auch mehrere Angabeformen erforderlich sind. Als ich das das letzte Mal (vor ca 3-4 Jahren) gemacht habe, war's jedenfalls noch so.
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Zellen verbinden - geteilte Farbe????

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen verbinden - geteilte Farbe????

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread