求一行数据打印出各种快递单格式

gao1981

如不行的话用什么方式才能实现.
最好在附件里帮我改改.谢谢!

hwc2ycy

1. Sub test()
   
2.     Dim a As Shape
   
3.     With Sheet2.Shapes
   
4.         '方法1：以指定磅数水平移动，正值向右，负值向左
   
5.         With .Item("shippername")
   
6.             .IncrementLeft 30
   
7.             .IncrementTop 30
   
8.             '方法2：指定对象左边缘到工作表的A列左边缘的（以磅为单位）
   
9.             '.Left = 46.5
   
10.             '.Top = 25.5
    
11.             
    
12.             '设置矩形框内文本
    
13.             .DrawingObject.Text = "shippername"
    
14.         End With
    
15.     End With
    
16. End Sub
    

复制代码

或者  .DrawingObject.Text =range("a1").value
单元格内容写入了矩形框。

gao1981

一夜无语

夫子会学

我跟着来学学

gao1981

前辈们啊,说句话啊

gao1981

兄弟们一起来啊,那个,顶起来啊

gao1981

版主大人,您也说句话,能不能实现的啊

gao1981

怎么没人说话

hwc2ycy

你得有各种快递单的样式才好。

gao1981

哈,终于有人提出一些观点了,真心谢谢
快递单顺丰,申通就可以,如果有其它是不是应该可以自已调一下的