Resolves tdf#72152: respect page orientation of Calc files in recent docs

Change-Id: I2a8d4cce979ce0ff1fd260bfa796817a0dbb7ce2
Reviewed-on: https://gerrit.libreoffice.org/14512Reviewed-by: Eike Rathke <erack@redhat.com>
Tested-by: Eike Rathke <erack@redhat.com>

sc/source/ui/docshell/docsh4.cxx

@@ -109,9 +109,6 @@ using namespace ::com::sun::star;
         static_cast<const SvxSetItem&>((set).Get(ATTR_PAGE_FOOTERSET)).GetItemSet(). \
             Get(ATTR_PAGE_SHARED)).GetValue()
 
-#define SC_PREVIEW_SIZE_X   10000
-#define SC_PREVIEW_SIZE_Y   12400
-
 void ScDocShell::Execute( SfxRequest& rReq )
 {
     //  SID_SC_RANGE (Range),
@@ -1900,7 +1897,16 @@ Rectangle ScDocShell::GetVisArea( sal_uInt16 nAspect ) const
 
     if( nAspect == ASPECT_THUMBNAIL )
     {
-        Rectangle aArea( 0,0, SC_PREVIEW_SIZE_X,SC_PREVIEW_SIZE_Y );
+        Size aSize = aDocument.GetPageSize(aDocument.GetVisibleTab());
+        const long SC_PREVIEW_SIZE_X = 10000;
+        const long SC_PREVIEW_SIZE_Y = 12400;
+        Rectangle aArea( 0,0, SC_PREVIEW_SIZE_X, SC_PREVIEW_SIZE_Y);
+        if (aSize.Width() > aSize.Height())
+        {
+            aArea.Right() = SC_PREVIEW_SIZE_Y;
+            aArea.Bottom() = SC_PREVIEW_SIZE_X;
+        }
+
         bool bNegativePage = aDocument.IsNegativePage( aDocument.GetVisibleTab() );
         if ( bNegativePage )
             ScDrawLayer::MirrorRectRTL( aArea );