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

MS Excel

Téma: Seřazení položek v proměnné variant - word

Zaslal/a Richard99 19.12.2013 9:14

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

Jméno
Kontrola
Text
	Ukázka

---

Palooo(19.12.2013 10:01)#016892

je viac moznosti ako to prerobit

tu naplnite cestu + poradie
For Each vrtSelectedItem In .SelectedItems
redim preserve Pole(1,x)
aSplit = split(vrtSelectedItem,".")
Pole(0,x) = vrtSelectedItem
Pole(1,x) = right(aSplit(0),3)
next

a potom to Pole zoradite podla Pole(1,x)

je to len teoreticky napisanecitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse