1.vb6 如何制作近大远小的图片
2.excel 使用VB创建数据透视表（pivottable）问题

vb6 如何制作近大远小的图片

       è¿™å°±æ˜¯æ‰€è°“的“透视”问题吧，简单的‘远小近大’，一张图片在FORM中间，图片的中心点是定点的（没有移动），它（height和width的值递加）由小变大！如果图片还能够加上仿真透视就真实多了就向我们真实的景物由远到近，会有视角偏移（想象）。

excel 使用VB创建数据透视表（pivottable）问题

       粘贴一段以前写的透视代码

       供参考

        Dim DataRng As Range '定义一个数据范围，用来储存生成数据透视表的源码fancybox源码数据

        Dim MyPivot As Worksheet '定义一个工作表，存放数据透视表"

        Dim pt As PivotTable '定义一个数据透视表，透视象棋引擎源码用来储存数据透视表对象”

        Dim MyTable As Worksheet '定义一个工作表，源码刮奖源码做为汇总表

        Dim ptcache As PivotCache

        Set DataRng = Range("A1:D" & zuidazhi)

        '

        Set ptcache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,透视智慧旅游源码 SourceData:=DataRng)

        Sheets.Add

        Sheets("Sheet1").Select

       Set pt = ptcache.CreatePivotTable(tabledestination:=Sheets("Sheet1").Range("b1"), TableName:="pivottable1")

        With ActiveSheet.PivotTables("pivottable1").PivotFields("采样时间")

        .Orientation = xlRowField

        .Position = 1

        End With

        With ActiveSheet.PivotTables("pivottable1").PivotFields("样品名称")

        .Orientation = xlRowField

        .Position = 2

        End With

        With ActiveSheet.PivotTables("pivottable1").PivotFields("分项")

        .Orientation = xlRowField

        .Position = 3

        End With

        ActiveSheet.PivotTables("pivottable1").AddDataField ActiveSheet.PivotTables("pivottable1" _

        ).PivotFields("值"), "计数项:值", xlCount

        With ActiveSheet.PivotTables("pivottable1").PivotFields("计数项:值")

        .Caption = "平均值项:值"

        .Function = xlAverage

        End With