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

Zaslat odpověď >

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)

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.