link cell to image

Pedro003 · Mar 14th 2022

Hi guys, I have mi excel with a button in each cell like img, this is for print de information to that row, I have the next code for that:

Code

Sub Macro1()
'
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, ActiveCell.Column)).Copy
    Sheets("Hoja1").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Nuevo PC\Downloads\Tickets", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

Display More

But that code is for print de information of the row of the active cell, but when i press de button print that not active the cell, that is my question, how can i do that when i select de img to print the cell also activated?

**royUK** · Mar 15th 2022

Why do want to activate a cell?

You should avoid activating and selecting because it is not usually necessary and can slow the code down.

Code

Sub Macro1()
    'this next line is poor coding. What is the range that you are copying? Why do you need ActiveCell, isn't it a fixed starting cell?
    Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, ActiveCell.Column)).Copy
    
    Sheets("Hoja1").Range("E2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
    Sheets("Hoja1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\Nuevo PC\Downloads\Tickets", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

Display More

link cell to image

Participate now!

Share

Similar Threads

MAX values (top10) from 2 columns - Value matches cannot be from the same row.

VBA export to xlsx with images without links

How to use specific picture saved in Excel tab in userform picture tool

Create link to folder automatically based on input in cell

How to Extract Image Links From a Web Page With Extension (iframe) and (id)

VBA Color Cells in Row that Match Cell Permanently

Tags

Users Viewing This Thread