grouping on canvas

MS WORD

    Next

  • 1. copying tables from excel to word
    How can I copy a table from excel to word so that the view is exactly the same in word than it was in excel? I can't seem to find copy as picture from excel and there is no paste special in word so I don't know how to get the tables right.
  • 2. pictures inserted in Word documents don't print?
    The pictures I insert into Word documents don't show up in the print preview, nor do they print. They do show up on the screen, though, and I can crop them, resize them and even format the text -- wrap, write over, write under, all that. So while I'm working on the document, it looks like everything's going great; and then I print out and get only the text. I'm using Windows XP.
  • 3. text box line
    When I daw a text box, it leaves a black line around the box. I've gone to tools/options/gerean and unchecked Automatically Create Drawing Line........... Please help. Thanks

grouping on canvas

Postby U2tpcHBlcg » Wed, 10 Nov 2004 05:44:15 GMT

I posted this last week, but no response. In Word 2000, I could easily group 
pictures, clip art, and text boxes. Now having to use the drawing canvas (for 
unlike objects since you can't group without a canvas) I am having trouble 
still selecting the objects to group I always selected the first, hit Shift, 
then each object, then Group.  This does appear to work on the canvas. I also 
had trouble placing more than one clip art object onto the canvas. They came 
in on top of each other and did not allow me to right-click to change the 
layout option (in line vs. tight or behind text).  Thank you! This drawing 
canvas seems to have complicated what was a simple operation. 

RE: grouping on canvas

Postby Z2FyZmllbGQtbi1vZGll » Wed, 10 Nov 2004 05:51:10 GMT

Actually, Bob Buckland provided a very thoughtful response to your question.  
Read it.





Similar Threads:

1.Strange Canvas Copy and Grouping by Mass

A strange thing just happened in Word 2003. I copied a canvas from the main 
doc to a New doc. Not all the pieces of the figure I drew copied over. I 
deleted each visible item to see if anything was buried under them. Nothing.

A few weeks ago I posted this question, but I've fogotten the solution and 
the post has disappeared from the NG.

Is it possible to select a number of items collectively to become a group by 
placing some selection tool around the whole lot of them?

          Wayne T. Watson (Watson Adventures, Prop., Nevada City, CA)
              (121.015 Deg. W, 39.262 Deg. N) GMT-8 hr std. time)
               Obz Site:  3915' 7" N, 1212' 32" W, 2700 feet
-- 
                 "When you think about it, electricity is
                  really just organized lightning." -- George Carlin

                     Web Page< 

2.Apply another font to all text boxes within a canvas or to grouped text boxes

Dear Experts:
Below macro changes all text within text boxes to "arial ,bold, Size
8".  So far, so good. This macro is working

a. But I also got text boxes within canvasses. How do I  have to
change the code so that text boxes within canvases also get their font
changed to "Arial Bold 8"?
b. I also got grouped text boxes in my document. How do I  have to
change the code so that grouped text boxes also get their font changed
to "Arial Bold 8"?

Help is much appreciated. Thank you very much in advance. Regards,
Andreas


Sub ApplyFontToTextBoxes()
Dim shp As Word.Shape

For Each shp In ActiveDocument.Shapes
With shp.TextFrame
If .HasText Then
  .TextRange.Font.Name = "Arial"
  .TextRange.Font.Size = 8
  .TextRange.Bold = True
End If
End With
Next shp
End Sub

3.Apply another font to all text boxes within a canvas or to grouped text boxes

Hi Andreas,

perhaps like that, and
watch out for line continuation:

Sub ApplyFontToTextBoxes()
Dim i As Long ' group items count
Dim l As Long ' shapes.count
Dim x As Long ' a shape's index
Dim y As Long ' a shape's canvas items count
Dim z As Long ' a shape's canvas item index
Dim shp As Word.Shape
l = ActiveDocument.Shapes.Count
For x = 1 To l
   i = ActiveDocument.Shapes(x).GroupItems.Count
   For z = 1 To i
      If ActiveDocument.Shapes(x).GroupItems(z). _
      TextFrame.HasText Then
         ActiveDocument.Shapes(x).GroupItems(z). _
         TextFrame.TextRange.Font.name = "Arial"
      End If
   Next
   If ActiveDocument.Shapes(x).TextFrame.HasText Then
      ActiveDocument.Shapes(x).TextFrame. _
      TextRange.Font.name = "Arial"
   End If
   ' ActiveDocument.Shapes(x).Select
   On Error Resume Next '!
   y = ActiveDocument.Shapes(x).CanvasItems.Count
   For z = 1 To y
      ActiveDocument.Shapes(x).CanvasItems(z). _
      TextFrame.TextRange.Font.name = "Arial"
   Next
Next

End Sub
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

4.How to Copy One Canvas to another canvas

Hi

Is it possible to copy the contents from one canvas to the other canvas.

Thanks

York


5.Canvas effect - canvas Rough.bmp (0/1)

6. http://groups.google.com/group/excel_vba

7. Time groups within Date groups in Access

8. Problem grouping Outlook emails with Outlook and not Word in the taskbar grouping Options



Return to MS WORD

 

Who is online

Users browsing this forum: No registered users and 19 guest