Excel VBA复制粘贴图片彼此

时间:2017-01-17 00:42:04

标签: excel vba excel-vba

我的VBA Excel代码是一个Nutrifacts计算器。它计算了人工神经元,每个国家都有不同的布局和计算方式。 Nutrifacts布局在每个不同的工作表中。我尝试制作一个组合框,并选择用户选择哪个国家。

我想尝试添加更多内容。我想添加一个不同国家/地区的复选框,所选国家/地区将显示该工件。例如,我选择了美国,日本和中国。这三个国家的营养品将相互显示。我的问题是图片的定位(粘贴)。

请看这个截图:

screenshot

代码:

 If Me.chkCountry.Value = "TAIWAN" Then
    ThisWorkbook.Sheets(10).Range("B5:I27").CopyPicture    Appearance:=xlScreen,        Format:=xlBitmap

        With Sheet10.Pictures.Paste
        .Left = Range("A1").Left ' <-- setting the left postion to Cell A1
        .Top = Range("A1").Top ' <-- setting the top postion to Cell A1
        End With

If Me.chkCountry.Value = "UNITED STATES" Then
    ThisWorkbook.Sheets(10).Range("C5:I26").CopyPicture    Appearance:=xlScreen,        Format:=xlBitmap

        With Sheet10.Pictures.Paste
        .Left = Range("A1").Left ' <-- setting the left postion to Cell A1
        .Top = Range("A1").Top ' <-- setting the top postion to Cell A1
        End With

0 个答案:

没有答案