Microsoft Word VBA Expert only required (EXPERT ONLY)
$10-30 AUD
Tamamlandı
İlan edilme: neredeyse 3 yıl önce
$10-30 AUD
Teslimde ödenir
I have a current VBA Word Document which inserts an image and text into a new row in a table.
The image is currently inserting before the text, i want to have the text first, then the image.
Private Sub SaveCloseImportPic_Click()
Dim sItemTable As String
sItemTable = "ItemTable"
If [login to view URL](sItemTable) Then
Set tbl = [login to view URL](sItemTable).[login to view URL](1)
End If
ActiveRow = [login to view URL]
With [login to view URL](ActiveRow)
.Cells(1).[login to view URL] = ActiveRow & "."
.Cells(2).[login to view URL] = [login to view URL]
End With
Call InsertPic
[login to view URL] = "Enter Description Here"
[login to view URL]
End Sub
Sub FindEnd()
SendKeys ("{TAB}")
SendKeys ("{END}")
SendKeys ("{ENTER}")
[login to view URL] Unit:=wdCell
End Sub
Sub InsertPic()
Dim intChoice As Integer
Dim strPath As String
Dim dutPic As [login to view URL]
Dim oH As Long, oW As Long 'Original Dimensions of the image
Dim nW As Double, aspect As Double
Dim targetCell As [login to view URL]
Dim oTable As Table
Dim sItemTable As String
'only allow the user to select one file
[login to view URL](msoFileDialogOpen).AllowMultiSelect = False
'make the file dialog visible to the user
intChoice = [login to view URL](msoFileDialogOpen).Show
'determine what choice the user made
If intChoice <> 0 Then
'get the file path selected by the user
strPath = [login to view URL]( _
msoFileDialogOpen).SelectedItems(1)
End If
Set oTable = [login to view URL](1)
'Set Image insert location
sItemTable = "ItemTable"
If [login to view URL](sItemTable) Then
Set tbl = [login to view URL](sItemTable).[login to view URL](1)
End If
ActiveRow = [login to view URL]
Set targetCell = [login to view URL](ActiveRow, 2)
'insert the image
Set dutPic = [login to view URL](FileName:=strPath, _
LinkToFile:=False, SaveWithDocument:=True)
oW = [login to view URL]
oH = [login to view URL]
aspect = oW / oH 'aspect ratio
nW = aspect * 170 'new width
[login to view URL] = 170 'Desired height
[login to view URL] = nW
End Sub
Dear Client,
I have 6 year office VBA development experience. I have fixed problem in your code sample. Please contact me so i can share it with you.
Sincerely,
Jeff
$20 AUD 1 gün içinde
5,0
(1 değerlendirme)
1,8
1,8
7 freelancer bu proje için ortalama $26 AUD teklif veriyor
Hello!
I'm a VBA expert more than ten years.
I have completed many complex projects in my practice and I am ready to carry out your project in the reasonable price and in the shortest possible time and with the highest quality!
You can read reviews about my work at: https://www.freelancer.com/u/VladimirLilenko?w=f
From the Microsoft Word and vba, of course, familiar.
Regards,
Vladimir
Hello sir, I have read your all instructions and I can do it efficiently. Give me this project and I will never disappoint you regarding your work and I will give you unlimited revision after completion of the work. Thanks. UMAIR