sw tiled rendering: don't offer HTML paste for shape text

Change-Id: Icd6df15347c48a5e42860092f4ee664e3a3d5699

sw/source/uibase/uno/unotxdoc.cxx

@@ -3198,6 +3198,13 @@ bool SwXTextDocument::isMimeTypeSupported()
         return false;
 
     TransferableDataHelper aDataHelper(TransferableDataHelper::CreateFromSystemClipboard(&pWrtShell->GetView().GetEditWin()));
+    if (SdrView* pSdrView = pWrtShell->GetDrawView())
+    {
+        if (pSdrView->GetTextEditObject())
+            // Editing shape text
+            return EditEngine::HasValidData(aDataHelper.GetTransferable());
+    }
+
     return aDataHelper.GetXTransferable().is() && SwTransferable::IsPaste(*pWrtShell, aDataHelper);
 }