Merge pull request #5 from tnmquann/tnmquann-patch-4

Add new features for image processing

Author: tnmquann

customUI/customUI14.xml

@@ -79,6 +79,15 @@
 			<button id="testButton1-21" label="Fix &#272;A"
                         imageMso="SlidesPerPageSlideOutline"
 						onAction= "chuanda" />
+			<button id="testButton1-22" label="Chuy&#7875;n &#7843;nh v&#7873; Inline with Text"
+                        imageMso="TextWrappingInLineWithText"
+						onAction= "PictureInlineWithText" />	
+			<button id="testButton1-23" label="Canh gi&#7919;a h&#236;nh &#7843;nh"
+                        imageMso="AlignCenter"
+						onAction= "PicCenter" />		
+			<button id="testButton1-24" label="Chu&#7849;n h&#243;a h&#236;nh &#7843;nh"
+                        imageMso="AlignCenter"
+						onAction= "InlineAndCenterAllImages" />						
 					</menu>
 </group> 
 
@@ -251,4 +260,4 @@
             </tab>
         </tabs>
     </ribbon>
-</customUI>
+</customUI>

module/Module 19.bas

@@ -0,0 +1,40 @@
+Public Sub PictureInlineWithText(ByVal control As Office.IRibbonControl)
+    Dim i As Integer
+    For i = ActiveDocument.Shapes.Count To 1 Step -1
+        Select Case ActiveDocument.Shapes(i).Type
+        Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoLinkedPicture, msoOLEControlObject, msoPicture, wdInlineShapePicture, wdInlineShapeLinkedPicture
+            ActiveDocument.Shapes(i).ConvertToInlineShape
+        End Select
+    Next i
+    Selection.HomeKey Unit:=wdStory
+End Sub
+
+Public Sub PicCenter(ByVal control As Office.IRibbonControl)
+    Dim Pic As InlineShape
+    Selection.HomeKey Unit:=wdStory
+    For Each Pic In ActiveDocument.InlineShapes
+        If Pic.Type = wdInlineShapePicture Then
+            Pic.Select
+            Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
+        End If
+    Next
+End Sub
+
+Public Sub InlineAndCenterAllImages(ByVal control As Office.IRibbonControl)
+    Dim i As Integer
+    For i = ActiveDocument.Shapes.Count To 1 Step -1
+        Select Case ActiveDocument.Shapes(i).Type
+        Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoLinkedPicture, msoOLEControlObject, msoPicture, wdInlineShapePicture, wdInlineShapeLinkedPicture
+            ActiveDocument.Shapes(i).ConvertToInlineShape
+        End Select
+    Next i
+    Selection.HomeKey Unit:=wdStory
+    Dim Pic As InlineShape
+    Selection.HomeKey Unit:=wdStory
+    For Each Pic In ActiveDocument.InlineShapes
+        If Pic.Type = wdInlineShapePicture Then
+            Pic.Select
+            Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
+        End If
+    Next
+End Sub