Hopefully a very simple fix...
Is there any way to re-size the image or to fit it in right hand corner of the excel page (i.e. company logo in top right corner)? Other than re-sizing the columns and inserting into a specific cell to get it close-ish to the top right I am not having much joy (especially in re-sizing!).
Code:
Dim db As DAO.Database
Dim strDBPath As String
Dim strPictureName As String
Dim obExcel As Object
Set db = CurrentDb()
Set obExcel = CreateObject("Excel.Application")
strDBPath = CurrentProject.Path & "\"
strPictureName = "logo.png"
If Me.chkFullQuote.Value = 0 And Me.chkSimpleQuote.Value = 0 Then
MsgBox "Please select quote type"
Exit Sub
Else
End If
If Me.chkFullQuote.Value = -1 Then
MsgBox "logo = " & strDBPath & strPictureName
With obExcel
.workbooks.Add
'Incase sheet does not exist
On Error Resume Next
.Sheets("Sheet2").Delete
.Sheets("Sheet3").Delete
With obExcel
If .activesheet.Name = "Sheet1" Then
.activesheet.Name = strSheet_Name
[COLOR="Red"] .activesheet.cells(1, 4).Select
.activesheet.pictures.Insert (strDBPath & strPictureName[/COLOR])
Is there any way to re-size the image or to fit it in right hand corner of the excel page (i.e. company logo in top right corner)? Other than re-sizing the columns and inserting into a specific cell to get it close-ish to the top right I am not having much joy (especially in re-sizing!).