Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
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
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzeige einer Aktivität

Anzeige einer Aktivität
13.02.2004 22:47:43
Jochen
Guten Abend,
gibt es irgendeine clevere Lösung, beim Speichern einer Datei einen
deutlichen optischen Hinweis zu setzen?
Die Anzeige in der Statusleiste ist ein wenig mikrig und wird meist
übersehen.
Es darf auch kein externes tool sein.
Gruß Jochen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeige einer Aktivität
14.02.2004 00:12:29
K.Rola
Hallo,
hoffentlich clever genug....
In das Modul von "DieseArbeitsmappe":
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Make_Display
DoEvents
Call delete_Display
End Sub


In ein Standardmodul:
Option Explicit
Sub Make_Display()
Dim sh As Shape, L As Double, T As Double, W As Double, H As Double
W = 400
H = 120
L = Application.Width / 2 - W / 2
T = Application.Height / 2 - 200
Call delete_Display
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, L, T, W, H)
With sh
.Name = "KRola"
.Fill.ForeColor.SchemeColor = 8
.TextFrame.Characters.Text = "Datei wird gespeichert..."
.TextFrame.VerticalAlignment = xlVAlignCenter
.TextFrame.HorizontalAlignment = xlHAlignCenter
.DrawingObject.RoundedCorners = msoTrue
.DrawingObject.Font.Bold = -1
.DrawingObject.Font.ColorIndex = 3
.DrawingObject.Font.Size = 24
End With
End Sub

Sub delete_Display()
On Error Resume Next
ActiveSheet.Shapes("KRola").Delete
End Sub

Das Blatt sollte aber nicht geschützt sein und wenn doch, dann
mit der Option UserInterfaceOnly
Gruß K.Rola
Anzeige
Schicke Sache...
14.02.2004 00:44:41
Boris
Hi VBA200IQlerin,
...das sieht doch mal gut aus - klasse!
Grüße Boris
AW: Schicke Sache...
14.02.2004 02:18:50
Jonathan
Hallo!
@K.Rola:
Das sieht echt mal klasse aus!!
@Boris:
Du kannst das ja auch mit einer selbstgestalteten UF machen.
Dort kannst Du dann auch noch ein Bild einbinden, so mache ich es immer, sieht echt gut aus!
Falls es Dich interessiert, hier ein Bsp:
lade die Datei Beispiel speichern.zip runter
hier klicken
entpacke die zip-Datei auf Laufwerk C!!!
Das ist wichtig, da das Hintergrundbild der UF sich auf C befindet.
Grüße
Jonathan
Anzeige
AW: Anzeige einer Aktivität
14.02.2004 16:01:41
Jochen
Guten Tag K.Rola,
schön einfach zu einzubauen und funktioniert super. Ich habe mir
erlaubt, die Form und die Schrift noch etwas zu vergrößern.
Dabke Jochen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige