Browse picture and enlarge it

[eliozo]

I need to create a button where i can browse a picture and put it in cell E5 for example (technically it should be small). When i click on it, it should become bigger and when i click on it again it should take place again in cell E5. Please help..

Plus if I need to create another button where i want to print this picture but in a bigger scale, how should i do it ? Thank you so much !!

 

[Yongle]

Here is the basic code

Sub Print5()
    Dim rng As String
    On Error Resume Next
    rng = Application.InputBox("select a cell", "Print 5 cells", , , , , , 8).Cells(1, 1).Resize(, 5).Address(0, 0)
    On Error GoTo TheEnd
    If MsgBox("Print " & rng & " ?", vbYesNo, "") = vbYes Then
        With ActiveSheet
            .PageSetup.PrintArea = rng
            .PrintOut
        End With
    End If
TheEnd:
End Sub

You will probably need to amend it to print the way you want - that is down to you now

Here are 2 pages to help you

PageSetup object (Excel)

Office VBA reference topic

docs.microsoft.com

Excel VBA Print: 2 Examples To Quickly Setup, Print Or Print Preview

Complete step-by-step explanation of how to setup a page, print or print preview from Excel with VBA. 2 comprehensive code examples you can use right now.

powerspreadsheets.com

Don't forget that you can record a macro when doing things manually
- when recording printing changes, the recorder usually records lots of lines
- pick out the necessary lines of code that you require

 

[eliozo]

Amazing !!! Thank you so much !!
One last favor if possible:

i need a button where it will ask me to specify a cell as previously done and send an email with the below content and the cell selected should be the [CELL SELECTED] in the code and the one beside should be [BESIDE CELL SELECTED] and the one beside .... ect
Plz help !

Private Sub CommandButton196_Click()

Dim objOutlook As Object

Dim objNameSpace As Object

Dim objOlAccount As Object

Dim objMailItem As Object

Dim Recip As String

Dim Send As String

Dim rng As Range



On Error Resume Next

Set objOutlook = GetObject(, "Outlook.Application")

On Error GoTo 0



If objOutlook Is Nothing Then

Set objOutlook = CreateObject("Outlook.Application")

Set objNameSpace = objOutlook.GetNamespace("MAPI")

End If



Recip = "URGENT REMINDER! " & "Request # " & [SELECTED CELL].Value & " " & "Unit: " & [BESIDE SELECTED CELL].Value & " " & "Description: " & [BESIDE BESIDE SELECTED CELL].Value & " " & "Request Date: " & [BESIDE BESIDE BESIDE SELECTED CELL].Value & " Thank You!"

Send = [AW30].Value

SendCC = [AW31].Value



Set objMailItem = objOutlook.createitem(0)



With objMailItem

.To = Send

.CC = SendCC

.BCC = ""

.Subject = "Urgent Maintenance Request"

.Body = Recip



.display

End With



Set objMailItem = Nothing

Set objOlAccount = Nothing

Set objNameSpace = Nothing

Set objOutlook = Nothing

End Sub

 

[Yongle]

Did you forget to place code tags around your code?
Post#12 is nothing to do with the original question - please start a new thread and include your code in code tags to make it easier for anyone trying to help you
thanks