Question : Comment font la position d'I une toile de schéma dans MS Word 2010

J'ai eu un macro dans le mot 2007 qui a vidé un schéma particulier derrière ma page. Le même macro en 2010 a rétréci le schéma, et placé le coin gauche supérieur environ pouce en dehors du code réel de page.

My est ci-dessous. J'ai ajouté dans les lignes de ancrage, mais ils ne changent pas anything.
 class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
shpCanvas " de " codeSnippet801745 d'id= " de 
Dim de class= comme forme
          
    Placer les shpCanvas = l'ActiveDocument.Shapes.AddCanvas (est parti : =0, dessus : =0, largeur : =860, taille : =596)
    
    shpCanvas.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    shpCanvas.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    
    nom de fichier de shpCanvas.CanvasItems.AddPicture : = " C:\CompanyData\InternalDocs\graphics\Letterhead.jpeg ", LinkToFile : =False, SaveWithDocument : =True, laissé : =0, dessus : =0, largeur : =596, taille : =860
    shpCanvas.WrapFormat.Type = wdWrapBehind
class= de

Réponse : Comment font la position d'I une toile de schéma dans MS Word 2010

Oops. Voici le code.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :

InsertPicture secondaire ()
    Faible Doc. comme Word.Document
    Faible SH comme forme
    Faible PicFile comme corde
    Faible rng comme gamme
    
    Application.ScreenUpdating = faux
        Placer Doc. = ActiveDocument
        Placer le rng = le Doc. Paragraphes (1).Range
        PicFile = « J:\My Pictures\Al\DSCF1882.jpg »
        SH réglé = Doc. Shapes.AddPicture (PicFile, faux, vrai, rng)
        Avec SH
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .LockAspectRatio = rectifient
            . Gauche = 0
            . Dessus = 0
            . Largeur = rng.PageSetup.PageWidth
            .WrapFormat.Type = wdWrapBehind
            . Nom = « photo 1.jpg de David Bailey »
        Extrémité avec
    Application.ScreenUpdating = rectifient

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us