How to make wrapfigure-width adjust to image?

Question

In my report, I am using a lot of figures that wrap around text using the package wrapfig.

\begin{wrapfigure}{L}{0.30\textwidth} 
    \centering
    \includegraphics{Image.pdf}
\end{wrapfigure}

For all figures that I want to produce, the intended picture already has the perfect size (I might need a scaling factor for all of them but that can be included with [scale=0.X] in the \includegraphics line). For context, the images depict chemical structures that I drew using ChemDraw and saved as PDF. I want to use their size as is, because if I for example use "width=0.8\linewidth" the structures will not be "uniform" anymore (a nitrogen in one structure may end up looking 20% bigger than in another structure which I do not want).

Therefore, the image-width keeps changing depending on the chemical structure (which is good). However, the wrapfigure-width is very stiff and needs to be adjusted manually to accommodate each image the best (which is bad). Since I have a lot of figures, I am wondering if there is a way to make this more dynamic? What do I need to replace the line

\begin{wrapfigure}{L}{0.30\textwidth} 

with to make the wrapfigure automatically adjust to the width of each image? Any help is much appreciated!

Answer 1

You can make use of a savebox and put the desired content (in your case the image) into it. Subsequently, you can measure the box's width and use that in the width argument for the wrapfigure environment. Finally, inside the wrapfigure environment, you can then display the actual contents of your box - aka: your image.

Here I have wrapped all of that into a new command \wrapimage that takes the same kind of arguments as \includegraphics, but displays the image as a wrapfigure:

\documentclass{scrartcl}

\usepackage{wrapfig}
\usepackage{duckuments}
\usepackage{xparse}
\usepackage{graphicx}

% Before usage, the savebox has to be declared/created
\newsavebox{\imageHolder}

% Use as \wrapimage{image} or e.g. \wrapimage[scale=2]{image}
\NewDocumentCommand{\wrapimage}{ O{} m }{
    % Typeset the image into the savebox
    \sbox{\imageHolder}{\includegraphics[#1]{#2}}

    % Pass the box's width to wrapfigure
    \begin{wrapfigure}{L}{\wd\imageHolder}
        % Dump the contents of the box into the document as
        % if the box's content had been added here all along
        \usebox{\imageHolder}
    \end{wrapfigure}
}

\begin{document}
    \wrapimage{example-image-duck}

    \blindduck[full=true]
\end{document}