Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kommentarindikatoren bei Seitenansicht

Kommentarindikatoren bei Seitenansicht
10.01.2005 15:18:27
Reini
Hallo an Alle,
Ich versuche die Kommentarindikatoren in der Seitenansicht (wie auch im Ausdruck) sichtbar zu machen. Im Tabellenblatt sind die "roten Ecken" sichtbar, sobald ich aber in die Seitenansicht gehe, sind die Kommentarindikatoren verschwunden (Obwohl unter "Seite einrichten/Tabelle/Kommentare": "Wie auf Blatt angezeigt" eingestellt). Auch wenn ich unter "Optionen/Ansicht/Kommentare" die Option "Kommentare und Indikatoren" wähle, sehe ich zwar die Kommentare, die Indikatorecken bleiben aber verschwunden.
Weiß jemand hiezu einen Rat?
Danke im Voraus
Gruß Reini

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentarindikatoren bei Seitenansicht
u_
nur mit VBA:
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Call Indikator_rein
ActiveSheet.PrintOut
Cancel = True
Call Indikator_raus
Application.EnableEvents = True
End Sub


Private Sub Indikator_rein()
Dim iInd As Integer, Zelle As Range, sh As Shape
Dim x, y, a
a = 4.5
For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
x = Zelle.Left + Zelle.Width - a
y = Zelle.Top
Set sh = ActiveSheet.Shapes.AddShape _
(msoShapeRightTriangle, x, y, a, a)
With sh
.Flip msoFlipHorizontal
.Flip msoFlipVertical
.Line.Visible = msoFalse
.Name = "shpIndikator_" & iInd
With .Fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 8 '=schwarz, Rot=10
.Transparency = 0#
End With
End With
iInd = iInd + 1
Next Zelle
Range("A1").Select
End Sub


Private Sub Indikator_raus()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Name Like "shpIndikator_*" Then sh.Delete
Next sh
End Sub

Anzeige
AW: Kommentarindikatoren bei Seitenansicht
reini
Danke !
Funktioniert super !
Gruß Reini

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige