Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Dynamisches Bild in die Fusszeile einfügen

Frage Microsoft Microsoft Office

Mitglied: dievonnebenan

dievonnebenan (Level 1) - Jetzt verbinden

21.01.2009, aktualisiert 10:06 Uhr, 8416 Aufrufe, 2 Kommentare

Ich suche eine Möglichkeit in Excel 2002/2003 ein Bild in die Fusszeile einzufügen. Die normale Funktion von Excel nützt mir leider nicht viel, da das Bild hierbei in die Excel-Datei eingebettet wird. Ich möchte aber erreichen, dass das Bild nachgeladen wird und somit durch ersetzen der Bild-Datei bequem austauschbar wird.

Ziel des Ganzen soll sein, dass eine in Excel generierte Rechnung gedruckt wird, deren Umfang zwischen einer und drei Seiten variiert. Daher kann ich das Bild nicht einfach in die Tabelle einbetten, sonst würden ja immer 3 Seiten gedruckt.

Besteht die Möglichkeit, das Bild z.B. per VB zu laden? Kann man dabei angeben, dass das Bild immer im selben Ordner wie die Excel-Datei (oder einem Unterordner) liegt, ohne selbst komplette Pfadangaben verwenden zu müssen?

MfG Chris
Mitglied: dievonnebenan
14.02.2009 um 18:00 Uhr
Nochmal zurück zu diesem Problem.

Es würde ja schon reichen, wenn einfach bei jedem Start der Excel-Datei die Grafik footer.png in die Fusszeile geladen werden würde

Vielleicht hat ja doch einer von euch eine Idee? *gg*

MfG Chris
Bitte warten ..
Mitglied: dievonnebenan
26.02.2009 um 12:54 Uhr
hi leute,

habe von anderer stelle antwort auf diese frage erhalten. da dieses problem schon mehrfach in anderen foren unbeantwortet blieb, möchte ich hier zumindest eine lösung anbieten

folgendermassen kommt man zum ergebnis:
  • in excel ALT + F11 drücken, um in den Visual Basic Editor zu gelangen
  • links oben im "projekt explorer" unter der betreffenden Arbeitsmappe mit rechter Maustaste auf "Module" klicken, dort "einfügen" / "modul" auswählen
  • im rechten bereich öffnet sich dadurch die "Codeansicht" des neuen Moduls, in die man folgenden Code kopiert:
01.
Sub fusszeile_einfuegen() 
02.
    ActiveSheet.PageSetup.LeftFooterPicture.Filename = _ 
03.
        ThisWorkbook.Path & "\footer.png" 
04.
    ActiveSheet.PageSetup.PrintArea = "" 
05.
    With ActiveSheet.PageSetup 
06.
        .LeftFooter = "&G" 
07.
    End With 
08.
End Sub
  • der code fügt im linken teil der fusszeile das bild footer.png ein, welches im gleichen verzeichnis wie die excel-datei selbst liegen muss
  • danach gehts zurück in den "projekt explorer"
  • linksklick auf "microsoft excel objekte", dann doppelklick auf "diese arbeitsmappe"
  • dadurch öffnet sich die "codeansicht" für dieses objekt, in die man folgenden code kopiert:
01.
Private Sub Workbook_Open() 
02.
    Call fusszeile_einfuegen 
03.
End Sub
  • der code sorgt dafür, dass das script "fusszeile_einfuegen" bei jedem öffnen der excel-datei ausgeführt wird

sooo... das wars dann auch schon

MfG Chris
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Excel - VBA - Fusszeile Text und Grafik (1)

Frage von Juckie zum Thema VB for Applications ...

VB for Applications
Fusszeile mit PageSetup mit VBA in Excel Makro funktioniert nicht? (5)

Frage von HerrHart zum Thema VB for Applications ...

Visual Studio
gelöst Vb.net raw string in xdocument einfügen (6)

Frage von Herbrich19 zum Thema Visual Studio ...

Exchange Server
gelöst Dynamische Verteilergruppe (9)

Frage von justdan zum Thema Exchange Server ...

Neue Wissensbeiträge
Humor (lol)

Taschenrechner in IOS kaputt!

(7)

Information von Lochkartenstanzer zum Thema Humor (lol) ...

Sicherheit

Kanadischer Geheimdienst veröffentlicht erstmals Sicherheitssoftware

(3)

Information von BassFishFox zum Thema Sicherheit ...

Virtualisierung

Docker Monitoring und Steuerung per "sen"

Tipp von Frank zum Thema Virtualisierung ...

Heiß diskutierte Inhalte