MS Excel

Téma: výška písma v záhlaví při tisku

Zaslal/a bordov 20.8.2017 18:54

Nedaří se mi nahradit výška písma pomocí proměnné.
Velikost 40 potřebuji nahradit např. pomocí
vyska = InputBox("Zadej výšku řádku v rozmezí 12-40")
a 40 nahradit vyska. Nedaří se mi to zapsat.

.LeftHeader = "&40" & Sheets("tiskZmenyZahlavi").Range("b3")

Díky za pomoc.

Laďa

Laďa

Zaslat odpověď >

elninoslov(20.8.2017 19:26)#037330

Príklad:
Sub NastavHlavisku()
Dim S As String, Vyska As Single
S = InputBox("Zadej výšku řádku v rozmezí 12-40", "Výška písma", 12)
If Not IsNumeric(S) Then MsgBox ("Chyba !"): Exit Sub
Vyska = Val(S)
If Vyska < 12 Or Vyska > 40 Then MsgBox ("Nesprávna veľkosť"): Exit Sub
ActiveSheet.PageSetup.LeftHeader = "&" & Vyska & Sheets("tiskZmenyZahlavi").Range("B3")
End Sub
Za ActiveSheet bude ten list na ktorý sa odkazujete cez With, a ten "tiskZmenyZahlavi" je asi iba zdroj textu...citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.