Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 8407 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 ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(2)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Netzwerkprotokolle
gelöst Leiten "dumme" Switches VLAN-Tags mit durch? (26)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

Windows Server
gelöst Neues KB für W10 1607 und W2K16 wieder mal nicht im WSUS 3.0, hat das noch jemand? (16)

Frage von departure69 zum Thema Windows Server ...

Netzwerkgrundlagen
Kann auf Freigabe nicht Zugreifen (16)

Frage von leon123 zum Thema Netzwerkgrundlagen ...

Windows Server
DC virtualisieren + wie sichern (SingleDC-Environment) (12)

Frage von KMUlife zum Thema Windows Server ...