word2007 دە رەسىم توپ بىر تەرەپ قىلىش كودى لازىم

chaqmaq137

ئەسسالامۇ ئەلەيكۇم قېرىنداشلار مەندە بىر تۈركۈم رەسىم شەكلدىكى كىتاپ ماتىرىياللار بار ئىدى بۇنى ئېلكىتاپ قىلشتا بۇرۇن Word2003 تە ئىشلەپ چىقارغان، بۇ قېتىم word2007 نى قاچىلاپ قارىسام بۇنىڭ ئىقتىدارى خېلى ياخشىكەن بۇلۇپمۇ رەسىمنى تەھرىرلەش ئىقتىدارى ياخشىكەن،بۇرۇن word2003 دە رەسىمنى توپ ھالدا  بىر تەرەپ قىلىدىغانvisual basic  بۇيرۇقىنى ئىنتىزار ئەپەندىنىڭ دەرىسلىكى بۇيىچە تېپىپ ئىشلەتكەن بۇقېتىم word2007 نى قاچىلاپ قارىسام بۇرۇن ئىشلەتكەن بۇيرۇقلار بۇنىڭغا ئىشلىمىدى ،ئەمدى سىلەردىن ئۈتۈنىدىغىنىم مۇشۇ word2007 دە ئىشلەيدىغان رەسىمنىڭ چوڭلۇقىنى بەت توشقىدەك ھالەتتە ئاپتۇماتىك تەڭشەيدىغان رەسىمنى توپ ھالدا رەڭسىزگە ئايلاندۇرغىلى بۇلىدىغان visual basicتوپ بىر تەرەپ قىلىش بۇيرۇقلىرىنى تېپىشىپ بەرسەڭلار ،ئىنتىزار ئەپەندىنىڭ ئالاقىلىشىش نۇمۇرىنى ئۇنتۇپ قالدىم.

saedi

ئىنتىزار ئەپەندىمنىڭ ئالاقىلشىش qq نۇمۇرى  :53081444

چاشقان

1. Sub Macro()
   
2. Mywidth=10  
   , u( A8 e0 F) L
3. Myheigth=10  
   
4. For Each iShape In ActiveDocument.InlineShapes
   
5. iShape.Height = 28.345 * Myheigth
   
6. iShape.Width = 28.345 * Mywidth
   & g5 ~5 M5 K1 T) U8 `& z: v! `
7. Next iShape
   * M- N/ {$ q0 x* {. s
8. End Sub
   
9. 
   4 g" h& x) w1 d2 g9 n8 U* ~' Z& |4 Y: t

مەزمۇننى كۆچۈرۈۋېلىش

3 y9 h1 j0 R% s  h6 m8 R; P8 Nماۋۇ كودنى سىناپ بېقىڭ.

chaqmaq137

نەچچە كۈندىن بىرى تورغا چىقالمىدىم،ئاۋۇ كودتا خاتالىق بارمۇ قانداق رەسىمنىڭ كەڭلىكىنى تەڭشىيەلىدى لىكىن ئىگىزلىكى پەقەتلا ئۆزگەرمىدى ،مەن پىروگىرامما تىلىنى بىلمەيىتتىم نەدە چاتاق بارلىقىنى بىلەلمىدىم.