Posts

Es werden Posts vom Dezember, 2010 angezeigt.

Lupe - Label - Klassenprogrammierung!

Mal wieder nachgefragt: Wie kann man eine Art Lupe programmieren, die bei Wechsel der Zelle den Inhalt vergrößert darstellt? Beim verlassen der Zelle wieder Urzustand. Das Ganze jederzeit Ein- bzw. Ausschaltbar. Habe mal einen alten Code ausgegraben:

Lupe - Label - Klassenprogrammierung...[ZIP, 60 KB]

Code in "DieseArbeitsmappe":

Option Explicit
PrivateSub Workbook_Open()
Application.OnKey "{F3}","Application_Ereignis.An"
Application.OnKey "{F4}","Application_Ereignis.Aus"
Call An
EndSub
PrivateSub Workbook_BeforeClose(Cancel AsBoolean)
Application.OnKey "{F3}"
Application.OnKey "{F4}"
Call Aus
EndSub



Code in ein Modul mit Namen "Application_Ereignis":

Option Explicit
Dim AppObject AsNew clsDatei
PublicSub An()
Set AppObject.AppLiCa = Application
EndSub
PublicSub Aus()
Dim objOLEObject As OLEObject
If Workbooks.Count <1ThenExitSub
ForEach objOLEObject In ActiveSheet.OLEObjects
If TypeOf objOLEObject.Object Is M…

Office - Applikationen - gestartet!

Über eine Funktion soll geprüft werden ob eine der Officeapplikationen gestartet ist. Ist die Applikation geöffnet soll sie nicht geschlossen werden, sonst schon. Die "Sichtbarkeit" der Applikation wird über eine optionale Variable gesteuert.

Für PowerPoint muss eventuell auch folgendes beachtet werden:
http://vbanet.blogspot.com/2010/09/excel-powerpoint.html

Option Explicit
Dim blnTMP AsBoolean
PublicSub Test()
Dim objApp AsObject
OnErrorGoTo Fin
Set objApp = OffApp("Word")
'Set objApp = OffApp("Word", False)
'Set objApp = OffApp("Outlook")
'Set objApp = OffApp("Outlook", False)
'Set objApp = OffApp("PowerPoint")
'Set objApp = OffApp("PowerPoint, False")
'Set objApp = OffApp("ACCESS")
'Set objApp = OffApp("ACCESS", False)
IfNot objApp Is NothingThen
MsgBox objApp.Name&" Version: "& objApp.Version
Else
MsgBox"Applikation nicht installiert!"
EndIf
Fin:
IfNo…

Word - Fußzeile - Seiten - Datum - Autor!

Ein neues Worddokument soll erstellt bzw. ein vorhandenes Dokument geöffnet und in die Fußzeile folgendes eingegeben werden: "Seite ? von ?", "Datum" und "Autor" - erstellt und getestet in Excel 2010:

Option Explicit
PublicSub Test()
Dim objFooter AsObject
Dim objWDApp AsObject
Dim objWDDoc AsObject
Dim objRange AsObject
OnErrorGoTo Fin
Set objWDApp = OffApp("Word")
IfNot objWDApp Is NothingThen
'Set objWDDoc = objWDApp.Documents.Open("C:\Temp\Dok1.doc")
Set objWDDoc = objWDApp.Documents.Add
Set objFooter = objWDDoc.Sections(1).Footers(1)
With objFooter.Range
Set objRange =.Characters(Len(objFooter.Range.Text))
objFooter.Range.Text ="Seite "
Set objRange =.Characters(Len(objFooter.Range.Text))
objRange.Fields.Add objRange,-1,"PAGE"
Set objRange =.Characters(Len(objFooter.Range.Text))
objRange.Text =" von "
Set objRange =.Characters(Len(objFooter.Range.Text))
objRange.Fields.…