Let's take an example:

        tab  = Grid[ 
          Table[StringForm["Element `` row ``", i, j], {j, 8}, {i, 2}]];
          Plot[{Sin[x], Cos[x]}, {x, 0, 10}, PlotRange -> All, 
          PlotLegends -> "Expressions", Epilog -> Inset[tab, {12, Center}], 
          ImagePadding -> {{5, 0}, {5, 5}}]

As you can see the Inset is clipped in the graphical area whatever you code in ImagePadding . I would like to have it displayed ouside the graphical area on the right side of the legend. I thought about

    plt = Plot[{Sin[x], Cos[x]}, {x, 0, 10}, PlotRange -> All, 
       PlotLegends -> "Expressions", ImageSize -> Automatic, 
       ImagePadding -> {{5, 5}, {5, 5}}];
       Grid[{{plt, tab}}]

but although the plot is unclipped in its cell, the table fills the second cell entirely with no option I know of to reduce its display size. Is it possible in this case?

Thanks