How to adjust the blank space in GraphicsRow?

Questions
1

Hello,
I wrote these codes:

GraphicsRow[
 Table[GraphicsRow[{"H", 2, 3}, ImageSize -> 30 i, 
   ImageMargins -> -1], {i, 1, 3}], Frame -> All, Spacings -> 0]

The result is:

Screenshot2022-04-07195016.jpg
Screenshot2022-04-07195016.jpg234×110 3.25 KB

I felt there is too much blank between the frame and the text and number. Is there a way to make the blank smaller?

2

Use AspectRatio:

GraphicsRow[
 Table[GraphicsRow[{"H", 2, 3}, ImageSize -> 30 i, 
   AspectRatio -> 1/i], {i, 1, 3}], Frame -> All]

You can fine tune the ratio.

ScreenShot2022-04-11at9.20.01PM.png

Regards,

Neil

3

Hello,
Thanks for your reply. You solution is a good idea.