• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Díky za nabídku,

mám následující kód, který mi aktualizuje záhlaví.

Sub header()
Dim pole As ContentControl
For i = 1 To ActiveDocument.Sections.Count
For Each pole In ActiveDocument.Sections(i).Headers(wdHeaderFooterPrimary).Range.ContentControls
If pole.Tag = "Cprot" Then pole.Range = "14 - 001"
Next pole
End Sub


To mi skvěle funguje na stránkách na výšku, na stránkách na šířku to nedikážu rozchodit.

Word 2010 EN

Neví někdo o podobném fóru na Word VBA

Dobrý den,

je to sice ve wordu, ale snad to nebude takový problém.

mám makro, které vkládá obrázky do wordu, funguje dobře, ale obrázky vkládá v náhodném poředí. Názvy souborů mají tvar XXXX_001.png, XXXX_002.png. Potřeboval bych, aby se obrázky vkládaly podle pořadových čísel.

Kód

Sub InsertMultipleImages()
Dim fd As FileDialog
Dim sNoDoc As String
Dim vrtSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "Select image files and click OK"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.tif; *.png"
If Left(CurDir, 14) <> "J:\data_shifts" Then .InitialFileName = "J:\data_shifts"
.FilterIndex = 2
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
With Selection
.InlineShapes.AddPicture FileName:= _
vrtSelectedItem _
, LinkToFile:=False, SaveWithDocument:=True, _
Range:=Selection.Range
End With
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
End Sub

Dík dobrej nápad, budu si stím muset chvíli pohrát

Díky tohle jsem taky nemyslel, asi se nepřesně vyjadřuju, chtěl jsem dostat spouštěcí tlačítko do excelu. nakonec jsem vygooglil tohle. Takže vyřešeno.

http://www.j-walk.com/ss/excel/tips/tip40.htm

Tohle jsem nemyslel, chtěl jsem jsem dostat přidané ovládací prvky pro ostatní uživatele.

Dobrý den

Ručně takto

file -> options -> customize ribbon -> export/import

záznamník maker zaznamenal prázdné makro

Mám makro uložené v souboru personal.xlsb. Makro obrahuje formulář. Vše funguje vpořádku, pokud jej spouštím klávesovou zkratkou, nebo ze seznamu maker. Pokud jej chci spustit přes quick access toolbar, objeví se formulář bez ovládacích prvků a za chvíli se zavře excel a opět otevře s nabídkou obnovy ze zálohy. Ve wordu ´téměř stejné makro funguje bez problémů.

Já bych to s těma kontrolama tak nepřeháněl. Ono to většinou hodí nějakou chybu ve výpočtu a ať si uživatel najde, co zapoměl zadat. Ošetřit jenom chyby ve výpočtu a je stím polovina práce.

Makra mám povolena, všechna makra fungují, jenom ta, která jsou spouštěna klávesovou zkratkou nefungují.

Dobrý den,

při pokusu spustit makro se objeví hláška viz příloha.

toto se projevuje jen u maker spouštěných klávesovou zkratkou, ostatní makra fungují bez problémů. Na jiném počítači je vše vpořádku.

excel 2010 en

Díky,

tohle jsem nerozchodil, ale nakonec jsem objevil jednodušší cestu.

ActiveCell.Name.Name

Tohle mi akorát zjistí obsah buňky, ne její pojmenování.

Dobrý den,

mám li v sešitu pojmenovanou buňku, potřeboval bych se v makru dotázat na jméno buňky. zkoušel jsem

activecell.name

to mi vyplivlo adresu včetně názvu listu.

Dík,

Vždy vytvořit záložní kopii nepoužívám, protože kopii potřebuji uložit na server. FileDateTime je perfektní.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje