< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#016892
avatar
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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09