Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

HTML Seite Grösse ändern

HTML Seite Grösse ändern
10.03.2004 17:39:35
Holger
Hallo !
Wenn Excel eine HTML-Seite generieren soll, bildet ja Excel eine StyleSheetdatei. Wie kann man ein Makro schreiben, dass in der StyleSheet-Datei immer "font-size:5.0pt;" steht, um die Schriftgröße zu verkleinern.
Da Excel immer wieder diese SheetDatei schreibt, bringt es nichts, die Datei mit einem Programm nachträglich zu bearbeiten.
Gruss und danke fuer die Antwort.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: HTML Seite Grösse ändern
10.03.2004 19:17:31
ChrisL
Hi Holger
Folgender Code ersetzt die Schriftart in einem bestehenden File und speichert es neu. Den Vorgang Datei-Als-Webseite-Speichern liesse sich mit dem Rekorder aufzeichnen und dem Code voranstellen. Auch könnte man die alte Datei per 'Kill' Befehl löschen und die andere Datei wieder umbenennen. Aber man könnte noch viel, drum hier mal ein Anfang...
Option Explicit

Sub FontSize()
Dim sText As String, sFile As String, sTarget As String
Dim iCounter As Long
Dim arr() As String
sFile = "C:\Ordner\Mappe1.htm"
sTarget = "C:\Ordner\Mappe2.htm"
Close
Open sFile For Input As #1
Do Until EOF(1)
iCounter = iCounter + 1
ReDim Preserve arr(1 To iCounter)
Line Input #1, sText
If InStr(sText, "font-size:") > 0 Then
arr(iCounter) = "    font-size:5.0pt;"
Else
arr(iCounter) = sText
End If
Loop
Close
Open sTarget For Output As #1
For iCounter = 1 To UBound(arr)
Print #1, arr(iCounter)
Next iCounter
Close
End Sub


Code abgeändert aus...
https://www.herber.de/mailing/volumina/221104x.htm
Soviel ich gesehen habe erscheint der Font-Befehl immer in einer einzelnen Zeile und nicht eingebettet im Code, weshalb die ganze Codezeile ersetzt wird.
Gruss
Chris
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige