From 8e8c789742874ac823e68f6154050c64b6fc5b85 Mon Sep 17 00:00:00 2001
From: Tamas Bunth <tamas.bunth@collabora.co.uk>
Date: Thu, 7 Sep 2017 22:00:01 +0200
Subject: oovbaapi: create XOval and XLine shape types
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This is needed in order to make "TypeOf myLine Is Line" or similar
expressions return the expected "true" value.

The implementation of the basic interpreter of TypeOf uses XTypeProvider
to determine the type of an object by getting the last part of the type
name. E.g. "ooo:vba::msforms::XLine" is determined as a "Line". That's
why I created the XLine and XOval blank classes.

TypeOf doc:
https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/operators/typeof-operator

Change-Id: Ia49cc92d672e30d0126f02d61a55a956ac1425f0
Reviewed-on: https://gerrit.libreoffice.org/42083
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Tamás Bunth <btomi96@gmail.com>
---
 vbahelper/source/vbahelper/vbashape.cxx | 42 +++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

(limited to 'vbahelper')

diff --git a/vbahelper/source/vbahelper/vbashape.cxx b/vbahelper/source/vbahelper/vbashape.cxx
index ca012370267c..e7aed451efe2 100644
--- a/vbahelper/source/vbahelper/vbashape.cxx
+++ b/vbahelper/source/vbahelper/vbashape.cxx
@@ -29,6 +29,7 @@
 #include <com/sun/star/text/TextContentAnchorType.hpp>
 #include <com/sun/star/text/RelOrientation.hpp>
 #include <ooo/vba/office/MsoShapeType.hpp>
+#include <ooo/vba/office/MsoAutoShapeType.hpp>
 #include <ooo/vba/word/WdRelativeHorizontalPosition.hpp>
 #include <ooo/vba/word/WdRelativeVerticalPosition.hpp>
 
@@ -154,6 +155,47 @@ ScVbaShape::getType( const css::uno::Reference< drawing::XShape >& xShape )
         throw uno::RuntimeException("the shape type do not be supported: " + sShapeType );
 }
 
+sal_Int32 ScVbaShape::getAutoShapeType(const css::uno::Reference< drawing::XShape >& xShape)
+{
+    assert( ScVbaShape::getType( xShape ) == office::MsoShapeType::msoAutoShape );
+
+    OUString sShapeType;
+    uno::Reference< drawing::XShapeDescriptor > xShapeDescriptor( xShape, uno::UNO_QUERY_THROW );
+    sShapeType = xShapeDescriptor->getShapeType();
+    SAL_INFO("vbahelper", "ScVbaShape::getAutoShapeType: " << sShapeType);
+
+    if( sShapeType == "com.sun.star.drawing.EllipseShape" )
+        return office::MsoAutoShapeType::msoShapeOval;
+    else if ( sShapeType == "com.sun.star.drawing.RectangleShape" )
+        return office::MsoAutoShapeType::msoShapeRectangle;
+    else if ( sShapeType == "com.sun.star.drawing.CustomShape" )
+    {
+        uno::Reference< beans::XPropertySet > aXPropSet( xShape, uno::UNO_QUERY );
+        uno::Any aGeoPropSet = aXPropSet->getPropertyValue( "CustomShapeGeometry" );
+        uno::Sequence< beans::PropertyValue > aGeoPropSeq;
+        if ( aGeoPropSet >>= aGeoPropSeq )
+        {
+            for( const auto& rProp : aGeoPropSeq )
+            {
+                if( rProp.Name == "Type" )
+                {
+                    OUString sType;
+                    if( rProp.Value >>= sType )
+                    {
+                        if( sType.endsWith( "ellipse" ) )
+                            return office::MsoAutoShapeType::msoShapeOval;
+                        // TODO other custom shapes here
+                    }
+                }
+            }
+        }
+    }
+
+    SAL_WARN( "vbahelper", "ScVbaShape::getAutoShapeType: unknown auto type" );
+    return -1; // could not decide
+
+}
+
 // Attributes
 OUString SAL_CALL
 ScVbaShape::getName()
-- 
cgit v1.2.3