@@ -709,7 +709,8 @@ elemToParPart ns element
709709 case drawing of
710710 Just s -> expandDrawingId s >>= (\(fp, bs) -> return $ Drawing fp title alt bs $ elemToExtent drawingElem)
711711 Nothing -> throwError WrongElem
712−-- The below is an attempt to deal with images in deprecated vml format.
712+-- The two cases below are an attempt to deal with images in deprecated vml format.
713+-- Todo: check out title and attr for deprecated format.
713714elemToParPart ns element
714715 | isElem ns "w" "r" element
715716 , Just _ <- findChildByName ns "w" "pict" element =
@@ -717,9 +718,15 @@ elemToParPart ns element
717718 >>= findAttrByName ns "r" "id"
718719 in
719720 case drawing of
720− -- Todo: check out title and attr for deprecated format.
721721 Just s -> expandDrawingId s >>= (\(fp, bs) -> return $ Drawing fp "" "" bs Nothing)
722722 Nothing -> throwError WrongElem
723+elemToParPart ns element
724+ | isElem ns "w" "r" element
725+ , Just objectElem <- findChildByName ns "w" "object" element
726+ , Just shapeElem <- findChildByName ns "v" "shape" objectElem
727+ , Just imagedataElem <- findChildByName ns "v" "imagedata" shapeElem
728+ , Just drawingId <- findAttrByName ns "r" "id" imagedataElem
729+ = expandDrawingId drawingId >>= (\(fp, bs) -> return $ Drawing fp "" "" bs Nothing)
723730-- Chart
724731elemToParPart ns element
725732 | isElem ns "w" "r" element