Como faço para elevar uma figura (colocada com wrapfig) para ficar alinhada com o topo de um parágrafo?

Question

Estou usando o wrapfigpacote para colocar uma figura com texto enrolado nela. Aqui está um exemplo mínimo, com uma captura de tela da parte relevante da saída abaixo:

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}

\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\begin{wrapfigure}[15]{r}{0in}
\includegraphics[width=0.4\textwidth]{TestImage.jpg}
\end{wrapfigure}

Lorem ipsum ... ridiculus mus.

\end{document}

Olhando para esta saída, não gosto de como a figura é colocada um pouco abaixo do topo do primeiro parágrafo. Qual é a solução mínima para elevar a figura de modo que a borda superior da imagem fique alinhada com o topo deste parágrafo?

Algumas notas esclarecedoras: não preciso da solução para encontrar o topo do parágrafo automaticamente - se eu puder aumentar a imagem por um comprimento inserido manualmente, tudo bem. Além disso, posso fazer esse ajuste manual para cada imagem; não há necessidade de fazer alterações em todas essas imagens se isso não for conveniente.

Answer 1

Você pode definir\intextsep :

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}
\setlength\intextsep{0pt}
\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\begin{wrapfigure}[15]{r}{0in}
\includegraphics[width=0.4\textwidth]{example-image-duck}
\end{wrapfigure}

Lorem ipsum ... ridiculus mus.

\end{document}

Uma alternativa mais manual é cortar o gráfico. Ao ajustar o valor, você pode mover o gráfico para cima e para baixo:

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}
\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\begin{wrapfigure}[15]{r}{0in}
\includegraphics[width=0.4\textwidth,trim=0pt 0pt 0pt 30pt]{example-image-duck}
\end{wrapfigure}

Lorem ipsum ... ridiculus mus.

\end{document}

Answer 2

Como você não adiciona uma legenda, é mais simples usar o\InsertBoxR comando, do pacote de macro TeX simples insbox. Este comando leva 2 argumentos obrigatórios: o número de linhas que permanecem intactas antes do objeto ser inserido, e do próprio objeto, e 1 argumento opcional - o número de linhas dhorter suplementares, caso o TeX faça um cálculo errado do número de linhas que tem que ser encurtado.

No código a seguir, a imagem é paracimaa primeira linha (usando um primeiro argumento negativo), e usei um argumento opcional negativo, para que não haja espaço em branco abaixo da imagem.

\documentclass{book}

\usepackage{graphicx}
\usepackage{wrapfig}
\usepackage[svgnames]{xcolor}
\usepackage{lipsum}
\input{insbox}
\makeatletter\@InsertBoxMargin =3mm\makeatother

\begin{document}

\begin{center}
\textbf{\Large Lorem ipsum}
\end{center}
\vspace{18pt}

\InsertBoxR{-1}{{\color{YellowGreen}\rule{0.35\textwidth}{0.3\textheight}}}[-2]
\lipsum

\end{document}