Posts

Es werden Posts vom 2009 angezeigt.

UserForm - Diagrams!

Since the Web components by Microsoft are not always installed a diagram can be indicated over detours in a UserForm. With the following code diagrams are indicated in a UserForm. The diagram is in the determined "Temp-Folder" temporarly stored, then in "Frame Picture" of the UserForm loaded and in "Temp-Folder" deleted.
Da die Webkomponenten von Microsoft nicht immer installiert sind kann ein Diagramm auch über Umwege in einer UserForm angezeigt werden. Mit dem folgenden Code werden Diagramme in einer UserForm angezeigt. Das Diagramm wird im ermittelten "TEMP-Ordner" temporär gespeichert, dann in den "Frame Picture" der UserForm geladen und ím "TEMP-Ordner" gelöscht. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007.
' Code in "DieseArbeitsmappe"
Option Explicit
PrivateSub Workbook_Open()
Application.OnKey "{F4}","Module1.UF_Show"
EndSub
PrivateSub Workbook_Deactivate…

Files - Rename!

With the following code all file extensions of the files in a folder are renamed. In this example from "*.csv" to "*.txt". Subfolders can be considered optionally. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in "Module1, Module2, Module3".
Mit folgendem Code werden alle Dateiendungen der Dateien in einem Ordner umbenannt. In diesem Beispiel von "*.csv" nach "*.txt". Unterordner können optional berücksichtigt werden. Die Dateien am Ende des Artikels sind Exceldateien der Version 2003 und 2007. Der folgende Code gehört in "Modul1, Modul2, Modul3".
Option Explicit
Const strOldEX AsString=".csv"
Const strNewEX AsString=".txt"
PublicSub Files_Rename()
Dim objFSO AsObject
Dim objDir AsObject
OnErrorGoTo Fin
Set objFSO =CreateObject("Scripting.FileSystemObject")
Set objDir = objFSO.GetFolder(ThisWorkbook.Path &"\")
'Call dirInfo(obj…

Office - Applications - Started!

With the following code the different Office applications (Word, PowerPoint, Access, Outlook) is started. It is examined whether application is already started. For each application there is a small example. Word - text mark put on and fill. PowerPoint - Slides put on and a range from Excel copy (picture, embedded object and metafile). Access - an empty data base is provided. Outlook - the number of mails in the inbox is spent. The files at the end of the article are Excelfiles of the version 2003 and 2007. The following code belonged in "Module1, Module2, Module3, Module4".
Mit folgendem Code werden die verschiedenen Office Anwendungen (Word, PowerPoint, Access, Outlook) gestartet. Es wird geprüft, ob die Anwendung schon gestartet ist. Für jede Applikation gibt es ein kleines Beispiel. Word - Textmarke anlegen und befüllen. PowerPoint - Slides anlegen und einen Bereich aus Excel kopieren (Bild, eingebettetes Objekt und Metafile). Access - eine leere Datenbank wird erstellt. …