gatalinka
Član broj: 201383 Poruke: 53 *.mup.hr.
|
Trebam Macro koji bi iz određene datoteke u Wordov dokument umetnuo slike (format nije bitan), i to više slika odjednom. Slike svaki put nemaju isti naziv, a i broj nije isti (ponekad umećem dvije, jednu ili više).
Dokument mora biti Word.
Unaprijed hvala
|
|
| |
|
vaskesd Milenko Vasic Smederevo
Član broj: 119610 Poruke: 62 *.adsl.eunet.rs.
|
evo macroa nadam se da nije kasno
1. Macro koji umece jednu ili x slika, automatski podesava velicinu slike prema marginama dokumenta i potpisuje sliku - potpis = filename
Sub Stavi_Slike_i_naslov()
'
' dddd Macro
' Macro created 15.9.2010 by vaske
'Sub InsertImages()
Dim doc As Word.Document
Dim bkmName As String
Dim SigFile As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set doc = ActiveDocument
Dim vrtSelectedItem As Variant
Dim theText() As String
Dim theText2 As String
With fd
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
'Sets the initial file filter to number 2.
.FilterIndex = 1
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Set mg2 = ActiveDocument.Range
mg2.Collapse wdCollapseEnd
doc.InlineShapes.AddPicture _
fileName:=vrtSelectedItem, _
LinkToFile:=False, SaveWithDocument:=True, Range:=mg2
Set mg1 = ActiveDocument.Range
mg1.Collapse wdCollapseEnd
'mg1.MoveEnd Unit:=wdCharacter, Count:=-1
theText() = Split(vrtSelectedItem, "\")
theText2 = theText(UBound(theText))
theText2 = Left(theText2, InStrRev(theText2, ".") - 1)
mg1.Text = Chr(13) + Chr(10) + theText2 + Chr(13) + Chr(10) + Chr(13) + Chr(10)
Next vrtSelectedItem
Else
End If
End With
End Sub
Ako zelis vise slika drzi Ctrl + file ili Ctrl + A za sve slike iz foldera
|
|
| |
|
gatalinka
Član broj: 201383 Poruke: 53 213.147.100.*
|
Hvala na pomoći.
|
|
| |
|
Ivek33
Član broj: 66174 Poruke: 2898
|
Kad je već otvorena tema o manipulaciji slikama u Wordu sa Macro kodom evo jedan poveći tutorijal u kojem su skupljeni različiti Macro kodovi za rad i manipulaciju (Resize) slikama uz Wordu
- Resize images in Word with Macro
|
|
| |
|