Pytanie : Pracować wśród the chodnikowiec chodnikowiec podczas gdy pracować z kształt w the chodnikowiec

Cześć experts

I am jak I móc mój kod mój. I potrzebować dokument wymieniać kształt w the chodnikowiec mój dokument, ono, nowy wizerunek i resize i this.

My kod nowy robić dokument, ale gdy the kod być I kończyć to wciąż w chodnikowiec the dokument. I próbować sumujący ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument z the chodnikowiec ale ono errors.

How móc I przepisywać the kod sumujący więc I wchodzić do the chodnikowiec fizycznie z mój kod, ie I pracować w the chodnikowiec dynamically.



(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
Sub InsertLogoDialog2 ()
Na Błąd Rozpoczynający errInsert
Ćmić oDialog Jako Word.Dialog, lngPictureSize Kopia
 Ustawiać oDialog = Dialog (wdDialogInsertPicture)
 Ćmić pic Jako InlineShape
 
  Z oDialog
    . Pokaz
    
Application.ScreenUpdating = Fałszywy


    ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Kształt ("LogoA"). Wybiórka
    Selection.Delete

    
    Jeżeli. Imię <> "" Wtedy
        
    Set pic = ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Range.InlineShapes.AddPicture (FileName: =.Name, _
            LinkToFile: =False, _
            SaveWithDocument: =True, Pasmo: =Selection.Range)
            
            Jeżeli pic. Wzrost > pic. Szerokość Wtedy
                    Z pic
                        pic.LockAspectRatio = msoTrue
                        Jeżeli pic. Wzrost > MillimetersToPoints (16.1) Wtedy pic. Wzrost = MillimetersToPoints (16.1)
                        
                    Końcówka Z
            Inny
                    Z pic
                        pic.LockAspectRatio = msoTrue
                        
                        Jeżeli pic. Szerokość > MillimetersToPoints (100) Wtedy pic. Szerokość = MillimetersToPoints (50)
                        
                    Końcówka Z
            Kończyć Jeżeli
            
            pic.ConvertToShape.Select
            
                Z Selection.ShapeRange
                . Imię = "LogoA"
                .WrapFormat.Type = wdWrapTight
                . Lewica = CentimetersToPoints (0.98)
                .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                . Wierzchołek = CentimetersToPoints (0.98)
                .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                Końcówka Z
                     
   Kończyć Jeżeli
   
  'błąd tutaj
  ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
   
   Application.ScreenUpdating = Prawdziwy
   
  Końcówka Z
 Ustalony oDialog = Nic
 Wyjście Okręt podwodny
errInsert:
 MsgBox Err.Description, "Błąd: Wszywka Obrazek"
Końcówka Okręt podwodny

Odpowiedź : Pracować wśród the chodnikowiec chodnikowiec podczas gdy pracować z kształt w the chodnikowiec

Ty móc z Kształt przedmiot bezpośrednio. Tam  być żadny potrzeba i wtedy The Wybór.

Także, ty móc Kształt. Ty musieć ono kształt i wtedy ono.

The kod łatwo, I usuwać mnóstwo the pionowo rozstaw i standaryzować the.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
Okręt podwodny InsertLogoDialog2 ()
Ćmić oDialog Jako Word.Dialog, lngPictureSize Kopia
Ćmić pic Kształt
Ćmić rng Pasmo

Na Błąd Rozpoczynający errInsert
Ustalony oDialog = Dialog (wdDialogInsertPicture)

Jeżeli oDialog.Display = -1 Wtedy 'Odwoływać
    Application.ScreenUpdating = Fałszywy
    Set pic = ActiveDocument.Sections (1).Headers (wdHeaderFooterFirstPage). Kształt ("LogoA")
    Ustalony rng = pic. Kotwica
    pic. Deleatur
    
    Set pic = ActiveDocument.Shapes.AddPicture (FileName: =oDialog.Name, _
          LinkToFile: =False, _
          SaveWithDocument: =True, Kotwica: =rng)
    
    Z pic
        .LockAspectRatio = msoTrue
        Jeżeli. Wzrost >. Szerokość Wtedy
            Jeżeli. Wzrost > MillimetersToPoints (16.1) Wtedy
                . Wzrost = MillimetersToPoints (16.1)
            Kończyć Jeżeli
        Inny
            Jeżeli. Szerokość > MillimetersToPoints (100) Wtedy
                . Szerokość = MillimetersToPoints (50)
            Kończyć Jeżeli
        Kończyć Jeżeli
        . Imię = "LogoA"
        .WrapFormat.Type = wdWrapTight
        . Lewica = CentimetersToPoints (0.98)
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        . Wierzchołek = CentimetersToPoints (0.98)
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    Końcówka Z

Kończyć Jeżeli

'błąd tutaj (linia już nie konieczny)
'ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument
Application.ScreenUpdating = Prawdziwy

Ustalony oDialog = Nic
Wyjście Okręt podwodny
errInsert:
 MsgBox Err.Description, "Błąd: Wszywka Obrazek"
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us