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, 8333 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst Wie kann man die Standard-Schriftart bei einfügen von Text in Word 2013 festlegen? (3)

Frage von Rene1976 zum Thema Microsoft Office ...

DNS
IPv6 und dynamisches DNS (3)

Frage von ukulele-7 zum Thema DNS ...

Windows Netzwerk
gelöst Frage zu den Netzwerkfreigaben mit Bild (8)

Frage von M.Marz zum Thema Windows Netzwerk ...

Microsoft Office
gelöst Excel Pdf Datei als Icon Symbol in Word einfügen per Drag and drop? (4)

Frage von Geforce zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...