Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
564to568
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Indikatoren mit ausdrucken

Indikatoren mit ausdrucken
09.02.2005 16:22:44
Sandra
Hallo Leute,
ich habe mal eine Frage. Ich möchte bei meinem Ausdruck die Indikatoren (rote Ecken) mit ausdrucken (aber nur die roten Ecken ohne Kommentar). Habt Ihr eine Idee wie ich das umsetzen kann?
Bitte erklärt es so das es auch ein nicht Excel Genie versteht.
Danke schon mal im vorraus
Gruß Sandra

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Indikatoren mit ausdrucken
u_
Hallo,
folgenden Code in das Klassenmodul DieseArbeitsmappe kopieren:
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: Indikatoren mit ausdrucken
09.02.2005 16:37:28
Sandra
Hallo ich bin es noch mal,
wenn ich das in die dieseArbeitsmappe reinkopiert habe, was muss ich denn dann noch machen, damit es funktioniert. Habe es reinkopiert und noch mal ausgedruck aber es ist kein Indikator zu sehen, muss ich es noch irgendwie aufrufen. Kenne mich damit echt nicht gut aus, vielleicht kannst du mir noch mal genau die Schritte erklären, vielleicht habe ich es auch falsch reinkopiert.
Danke für deine Hilfe
Gruß Sandra
AW: Indikatoren mit ausdrucken
Läuft
Hallo funktioniert doch,
vielen Dank Ihr seit die Größten
Gruß Eure Sandra

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige