曲线和直线的区别

coolgege

Sub Macro1() With ActiveSheet.Shapes.BuildFreeform(msoEditingCorner, 165#, 209.25) .AddNodes msoSegmentCurve, msoEditingCorner, 168#, 208.5, 171#, 206.25, _ 174#, 205.5 .AddNodes msoSegmentCurve, msoEditingCorner, 174.75, 206.25, 175.5, 207.75, _ 175.5, 207.75 .AddNodes msoSegmentLine, msoEditingAuto, 171.75, 231# .AddNodes msoSegmentLine, msoEditingAuto, 147#, 217.5 .AddNodes msoSegmentLine, msoEditingAuto, 141.75, 201.75 .AddNodes msoSegmentLine, msoEditingAuto, 155.25, 174.75 .AddNodes msoSegmentLine, msoEditingAuto, 173.25, 174# .AddNodes msoSegmentLine, msoEditingAuto, 159.75, 192.75 .ConvertToShape.Select End With End Sub

我录了一个宏，见上，从字面上看只有msoSegmentCurve, msoEditingCorner 和msoSegmentLine, msoEditingAuto的区别，就是曲线和线的区别，可是为什么这种区别呢？如果我知道每个点的坐标，直接按.AddNodes msoSegmentLine, msoEditingAuto 坐标x,坐标y的方式 去做一个图形，如果点比较密，转弯比较多，怎么不成呢？请问为什么呢？

coolgege

以下有一个宏可以生成四川地图，不能用，但把坐标点放大6至10倍就可以了，为什么呢？

Sub Create四川() With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 276#, 217#) '四川 .AddNodes msoSegmentLine, msoEditingAuto, 275#, 217# .AddNodes msoSegmentLine, msoEditingAuto, 275#, 216# .AddNodes msoSegmentLine, msoEditingAuto, 275#, 214# .AddNodes msoSegmentLine, msoEditingAuto, 273#, 214# .AddNodes msoSegmentLine, msoEditingAuto, 273#, 213# .AddNodes msoSegmentLine, msoEditingAuto, 267#, 213# .AddNodes msoSegmentLine, msoEditingAuto, 267#, 211# .AddNodes msoSegmentLine, msoEditingAuto, 266#, 211# .AddNodes msoSegmentLine, msoEditingAuto, 266#, 208# .AddNodes msoSegmentLine, msoEditingAuto, 262#, 209# .AddNodes msoSegmentLine, msoEditingAuto, 261#, 211# .AddNodes msoSegmentLine, msoEditingAuto, 259#, 211# .AddNodes msoSegmentLine, msoEditingAuto, 260#, 218# .AddNodes msoSegmentLine, msoEditingAuto, 259#, 218# .AddNodes msoSegmentLine, msoEditingAuto, 259#, 219# .AddNodes msoSegmentLine, msoEditingAuto, 256#, 219# .AddNodes msoSegmentLine, msoEditingAuto, 256#, 215# .AddNodes msoSegmentLine, msoEditingAuto, 254#, 215# .AddNodes msoSegmentLine, msoEditingAuto, 254#, 218# .AddNodes msoSegmentLine, msoEditingAuto, 251#, 218# .AddNodes msoSegmentLine, msoEditingAuto, 251#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 250#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 250#, 224# .AddNodes msoSegmentLine, msoEditingAuto, 242#, 224# .AddNodes msoSegmentLine, msoEditingAuto, 242#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 241#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 241#, 221# .AddNodes msoSegmentLine, msoEditingAuto, 236#, 222# .AddNodes msoSegmentLine, msoEditingAuto, 236#, 221# .AddNodes msoSegmentLine, msoEditingAuto, 234#, 221# .AddNodes msoSegmentLine, msoEditingAuto, 234#, 219# .AddNodes msoSegmentLine, msoEditingAuto, 233#, 219# .AddNodes msoSegmentLine, msoEditingAuto, 233#, 217# .AddNodes msoSegmentLine, msoEditingAuto, 230#, 214# .AddNodes msoSegmentLine, msoEditingAuto, 230#, 210# .AddNodes msoSegmentLine, msoEditingAuto, 223#, 209# .AddNodes msoSegmentLine, msoEditingAuto, 223#, 210# .AddNodes msoSegmentLine, msoEditingAuto, 222#, 210# .AddNodes msoSegmentLine, msoEditingAuto, 222#, 216# .AddNodes msoSegmentLine, msoEditingAuto, 221#, 216# .AddNodes msoSegmentLine, msoEditingAuto, 221#, 219# .AddNodes msoSegmentLine, msoEditingAuto, 219#, 221# .AddNodes msoSegmentLine, msoEditingAuto, 219#, 224# .AddNodes msoSegmentLine, msoEditingAuto, 222#, 224# .AddNodes msoSegmentLine, msoEditingAuto, 226#, 229# .AddNodes msoSegmentLine, msoEditingAuto, 227#, 229# .AddNodes msoSegmentLine, msoEditingAuto, 227#, 233# .AddNodes msoSegmentLine, msoEditingAuto, 230#, 234# .AddNodes msoSegmentLine, msoEditingAuto, 231#, 248# .AddNodes msoSegmentLine, msoEditingAuto, 232#, 248# .AddNodes msoSegmentLine, msoEditingAuto, 233#, 259# .AddNodes msoSegmentLine, msoEditingAuto, 232#, 259# .AddNodes msoSegmentLine, msoEditingAuto, 232#, 265# .AddNodes msoSegmentLine, msoEditingAuto, 233#, 265# .AddNodes msoSegmentLine, msoEditingAuto, 233#, 266# .AddNodes msoSegmentLine, msoEditingAuto, 235#, 266# .AddNodes msoSegmentLine, msoEditingAuto, 236#, 263# .AddNodes msoSegmentLine, msoEditingAuto, 239#, 263# .AddNodes msoSegmentLine, msoEditingAuto, 239#, 265# .AddNodes msoSegmentLine, msoEditingAuto, 240#, 265# .AddNodes msoSegmentLine, msoEditingAuto, 242#, 270# .AddNodes msoSegmentLine, msoEditingAuto, 246#, 270# .AddNodes msoSegmentLine, msoEditingAuto, 246#, 272# .AddNodes msoSegmentLine, msoEditingAuto, 247#, 272# .AddNodes msoSegmentLine, msoEditingAuto, 249#, 277# .AddNodes msoSegmentLine, msoEditingAuto, 251#, 279# .AddNodes msoSegmentLine, msoEditingAuto, 251#, 283# .AddNodes msoSegmentLine, msoEditingAuto, 253#, 285# .AddNodes msoSegmentLine, msoEditingAuto, 253#, 288# .AddNodes msoSegmentLine, msoEditingAuto, 258#, 287# .AddNodes msoSegmentLine, msoEditingAuto, 258#, 286# .AddNodes msoSegmentLine, msoEditingAuto, 265#, 285# .AddNodes msoSegmentLine, msoEditingAuto, 264#, 276# .AddNodes msoSegmentLine, msoEditingAuto, 268#, 274# .AddNodes msoSegmentLine, msoEditingAuto, 269#, 270# .AddNodes msoSegmentLine, msoEditingAuto, 270#, 270# .AddNodes msoSegmentLine, msoEditingAuto, 269#, 266# .AddNodes msoSegmentLine, msoEditingAuto, 272#, 266# .AddNodes msoSegmentLine, msoEditingAuto, 272#, 263# .AddNodes msoSegmentLine, msoEditingAuto, 275#, 263# .AddNodes msoSegmentLine, msoEditingAuto, 275#, 264# .AddNodes msoSegmentLine, msoEditingAuto, 276#, 264# .AddNodes msoSegmentLine, msoEditingAuto, 276#, 269# .AddNodes msoSegmentLine, msoEditingAuto, 282#, 269# .AddNodes msoSegmentLine, msoEditingAuto, 282#, 268# .AddNodes msoSegmentLine, msoEditingAuto, 285#, 269# .AddNodes msoSegmentLine, msoEditingAuto, 285#, 271# .AddNodes msoSegmentLine, msoEditingAuto, 292#, 271# .AddNodes msoSegmentLine, msoEditingAuto, 292#, 270# .AddNodes msoSegmentLine, msoEditingAuto, 293#, 270# .AddNodes msoSegmentLine, msoEditingAuto, 293#, 268# .AddNodes msoSegmentLine, msoEditingAuto, 292#, 268# .AddNodes msoSegmentLine, msoEditingAuto, 292#, 267# .AddNodes msoSegmentLine, msoEditingAuto, 286#, 265# .AddNodes msoSegmentLine, msoEditingAuto, 287#, 262# .AddNodes msoSegmentLine, msoEditingAuto, 288#, 262# .AddNodes msoSegmentLine, msoEditingAuto, 287#, 259# .AddNodes msoSegmentLine, msoEditingAuto, 286#, 259# .AddNodes msoSegmentLine, msoEditingAuto, 285#, 256# .AddNodes msoSegmentLine, msoEditingAuto, 281#, 256# .AddNodes msoSegmentLine, msoEditingAuto, 282#, 251# .AddNodes msoSegmentLine, msoEditingAuto, 283#, 251# .AddNodes msoSegmentLine, msoEditingAuto, 283#, 250# .AddNodes msoSegmentLine, msoEditingAuto, 285#, 250# .AddNodes msoSegmentLine, msoEditingAuto, 285#, 248# .AddNodes msoSegmentLine, msoEditingAuto, 284#, 248# .AddNodes msoSegmentLine, msoEditingAuto, 284#, 244# .AddNodes msoSegmentLine, msoEditingAuto, 288#, 243# .AddNodes msoSegmentLine, msoEditingAuto, 288#, 244# .AddNodes msoSegmentLine, msoEditingAuto, 293#, 245# .AddNodes msoSegmentLine, msoEditingAuto, 293#, 247# .AddNodes msoSegmentLine, msoEditingAuto, 297#, 247# .AddNodes msoSegmentLine, msoEditingAuto, 297#, 246# .AddNodes msoSegmentLine, msoEditingAuto, 299#, 246# .AddNodes msoSegmentLine, msoEditingAuto, 301#, 240# .AddNodes msoSegmentLine, msoEditingAuto, 305#, 239# .AddNodes msoSegmentLine, msoEditingAuto, 305#, 236# .AddNodes msoSegmentLine, msoEditingAuto, 307#, 234# .AddNodes msoSegmentLine, msoEditingAuto, 307#, 233# .AddNodes msoSegmentLine, msoEditingAuto, 309#, 232# .AddNodes msoSegmentLine, msoEditingAuto, 309#, 228# .AddNodes msoSegmentLine, msoEditingAuto, 311#, 228# .AddNodes msoSegmentLine, msoEditingAuto, 311#, 226# .AddNodes msoSegmentLine, msoEditingAuto, 305#, 227# .AddNodes msoSegmentLine, msoEditingAuto, 305#, 226# .AddNodes msoSegmentLine, msoEditingAuto, 304#, 226# .AddNodes msoSegmentLine, msoEditingAuto, 304#, 225# .AddNodes msoSegmentLine, msoEditingAuto, 299#, 225# .AddNodes msoSegmentLine, msoEditingAuto, 298#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 294#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 294#, 224# .AddNodes msoSegmentLine, msoEditingAuto, 289#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 289#, 222# .AddNodes msoSegmentLine, msoEditingAuto, 284#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 284#, 224# .AddNodes msoSegmentLine, msoEditingAuto, 277#, 223# .AddNodes msoSegmentLine, msoEditingAuto, 277#, 219# .AddNodes msoSegmentLine, msoEditingAuto, 276#, 219# .AddNodes msoSegmentLine, msoEditingAuto, 276#, 216# .AddNodes msoSegmentLine, msoEditingAuto, 275#, 216# .ConvertToShape.Select End With End Sub

coolgege

这是一个矢量图，可以加宏、加链接、放大、和其他图一组合，而XY散点图我没有用过，不知可否？

chenjun

是有你说的问题，你为什么不用XY散点图做地图。

chenjun

可以的，没有问题！相当于手动画“自选图形》线条”中的多边形和自由曲线，如果参数只有一个就是曲线。