vb macro string width in pixel

Question

How would you calculate the number of pixels for a String (in an arbitrary font), using an Excel VBA macro?

Related:

• http://www.mrexcel.com/forum/excel

Answer 1

If you need a mix of fonts sizes etc., why not use:

DrawText tempDC, Text, Len(Text), wRect, DT_CALCRECT ' Or DT_BOTTOM

instead of

GetTextExtentPoint32 tempDC, text, Len(text), textSize

with wRect as zero rectangle that returns .cx as .right and .cy as .bottom