ole: add _OleObjectElementCreator._icon_width

Author: scanny

pptx/oxml/shapes/graphfrm.py

@@ -193,7 +193,7 @@ def new_graphicFrame(cls, id_, name, x, y, cx, cy):
 
     @classmethod
     def new_ole_object_graphicFrame(
-        cls, id_, name, ole_object_rId, progId, icon_rId, x, y, cx, cy
+        cls, id_, name, ole_object_rId, progId, icon_rId, x, y, cx, cy, imgW
     ):
         """Return newly-created `<p:graphicFrame>` for embedded OLE-object.
 

pptx/shapes/shapetree.py

@@ -1087,6 +1087,7 @@ def _graphicFrame(self):
             self._y,
             self._cx,
             self._cy,
+            self._icon_width,
         )
 
     @lazyproperty
@@ -1146,6 +1147,16 @@ def _icon_rId(self):
         _, rId = self._slide_part.get_or_add_image_part(self._icon_image_file)
         return rId
 
+    @lazyproperty
+    def _icon_width(self):
+        """Width of enclosed EMF icon within the OLE graphic-frame.
+
+        This must be specified when a custom icon is used, to avoid stretching of the
+        image and possible undesired resizing by PowerPoint when the OLE shape is
+        double-clicked to open it.
+        """
+        return self._icon_width_arg if self._icon_width_arg is not None else Emu(965200)
+
     @lazyproperty
     def _ole_object_rId(self):
         """str rId like "rId6" of relationship to embedded ole_object part.

tests/shapes/test_shapetree.py

@@ -2284,6 +2284,16 @@ def it_adds_and_relates_the_icon_image_part_to_help(
         slide_part_.get_or_add_image_part.assert_called_once_with("obj-icon.emf")
         assert rId == "rId16"
 
+    @pytest.mark.parametrize(
+        "icon_width_arg, expected_value",
+        ((Emu(666666), Emu(666666)), (None, Emu(965200))),
+    )
+    def it_determines_the_icon_width_to_help(self, icon_width_arg, expected_value):
+        element_creator = _OleObjectElementCreator(
+            None, None, None, None, None, None, None, None, None, icon_width_arg, None
+        )
+        assert element_creator._icon_width == expected_value
+
     def it_adds_and_relates_the_ole_object_part_to_help(
         self, request, _slide_part_prop_, slide_part_
     ):