我怎样才能得到雪佛龙（形状）的坐标 [英] How can i get the Chevron(shape) cordinates

问题描述

如何获得雪佛龙（形状）坐标并根据我的意愿改变它们。

---

Lateef Sofi

解决方案

即便是SG-1也遇到了麻烦...... scnr。

Shapes集合提供形状：

选项明确
 
 Public Sub FunWithShapes（）
 
 Dim sh As Word.Shape 
 
 For Each sh In Shapes 
 Debug.Print" Before：" ;; sh.Name; sh.Top; sh.Left; sh.Height; sh.Width 
 sh.Top = sh.Top + 10 
 sh.Left = sh.Left + 10 
 Debug.Print" After：" ;; sh.Name; sh.Top; sh.Left; sh.Height; sh.Width 
下一个sh 
 
结束子
 

How can i get the Chevron(shape) coordinates and change them according my wish.

---

Lateef Sofi

解决方案

Even SG-1 had troubles doing that.. scnr.

Shapes are available by the Shapes collection:

Option Explicit

Public Sub FunWithShapes()

  Dim sh As Word.Shape
  
  For Each sh In Shapes
    Debug.Print "Before:"; sh.Name; sh.Top; sh.Left; sh.Height; sh.Width
    sh.Top = sh.Top + 10
    sh.Left = sh.Left + 10
    Debug.Print "After:"; sh.Name; sh.Top; sh.Left; sh.Height; sh.Width
  Next sh

End Sub

这篇关于我怎样才能得到雪佛龙（形状）的坐标的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！