Microsoft Word VBA Expert only required (EXPERT ONLY)

$10-30 AUD

Suoritettu

Julkaistu

noin 2 vuotta sitten

$10-30 AUD

Maksettu toimituksen yhteydessä

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

Visual Basic

Visual Basic for Apps

Microsoft Word

Projektin tunnus (ID): 33273734

Tietoa projektista

7 ehdotukset

Etäprojekti

Aktiivinen 2 vuotta sitten

Haluatko ansaita rahaa?

Sähköpostiosoite

Freelancerin tarjouskilpailun edut

Aseta budjettisi ja aikataulu

Saa maksu työstäsi

Kuvaile ehdotustasi

Rekisteröinti ja töihin tarjoaminen on ilmaista

Myönnetty käyttäjälle:

@jeff123wang

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 päivässä

5,0

(1 arvostelu)

1,8

7 freelancerit tarjoavat keskimäärin $26 AUD tätä projektia

@VladimirLilenko

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

$30 AUD 1 päivässä

5,0

(169 arvostelua)

6,7

@yesubabu10203

HI there myself yesu I am a vba developer I can do this shifting contact me on this thanks...........

$20 AUD 1 päivässä

5,0

(20 arvostelua)

4,3

@umairnoor32

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

$20 AUD 1 päivässä