AddChart2 VBA makrosundaki numara ne temsil ediyor?

Question

Excel 2013 modelimi kullanarak, bir grafik eklerken makro, bir makro-kümelenmiş çizelgeyi yazdım. görünüm kodu seçenekte, benim aşağıda kod satırı gösterir:

ActiveSheet.Shapes.Addchart2(286,xl3DColumnClustered).Select 

ben 286 temsil sayısını ne yaptığını anlayamıyorum olarak bana yardım et. Ben Addchart2 sözdizimi biliyorum:

expression.AddChart2(Style,XlChartType,Left,Top,Width,Height,NewLayout) 

Ben "285" den "286" değiştirirseniz

, grafik mavi bir arka plan ile görüntülenir. Sayı 100 ise bir hata ortaya çıkar.

Numara ne anlama geldiğini bana söyleyebilir mi?

Teşekkür ederiz.

Answer 1

Bu doğrudan sorunuzu yanıtlamaz, ancak neler olduğunu anlamanıza yardımcı olur.

Bu, benim üzerime gelen saf bir varsayımdır, ama bunun belgelenmemiş bir bit sahası olduğunu tahmin ederdim. Bildiğiniz gibi biraz alan bir sayı kullanmak için sadece bir yoldur. Bu yüzden görüntü, 8 bit (veya bayrak) olabilen bir Byte değişkenine sahibiz. Yani bir bayt içinde 8 değere kadar saklayabiliriz.

Örnek: "DaysOpen" bitleri 1-7 alanımız var, haftanın o günü mağaza açık. (Biz. 8 bit yok sayarız) Böylece mağaza MF açıksa 0111 1100.

Sonra sadece onluya bu sayıyı dönüştürmek ikili olacağını ve bunun değişkendir O 124.

var olduğunu görüyoruz bir Variant yani bir Byte'den Long'a kadar her şey olabilir, bu da 64'e kadar farklı bayrak saklayabilirdi. Bir yan not olarak

(eğer ilgilendi) bu kadar gibi biraz alanları kullanabilirsiniz: Bir keresinde aynı durum vardı, Eh

Option Explicit 

Public Enum DayFlags 
    'Notice these are power of 2. 
    dfSunday = 1 
    dfMonday = 2 
    dfTuesday = 4 
    dfWednesday = 8 
    dfThursday = 16 
    dfFriday = 32 
    dfSaturday = 64 
End Enum 

Sub Example() 
    Dim openHours As DayFlags 
    'Set the flags: 
    openHours = dfMonday Or dfTuesday Or dfThursday 
    'See the binary? 
    MsgBox Right$("00000000" & Excel.WorksheetFunction.Dec2Bin(openHours), 8) 
    'Notice the order is right to left. This is call endianness. 
    'You can check for a specific flag like this: 
    MsgBox IsOpenOnDay(openHours, dfMonday) & vbNewLine & IsOpenOnDay(openHours, dfFriday) 
    'You can add a flag like this: 
    openHours = openHours Or dfFriday 
    MsgBox IsOpenOnDay(openHours, dfMonday) & vbNewLine & IsOpenOnDay(openHours, dfFriday) 
    'You can remove a flag like this: 
    openHours = openHours Xor dfFriday 
    MsgBox IsOpenOnDay(openHours, dfMonday) & vbNewLine & IsOpenOnDay(openHours, dfFriday) 
End Sub 

Private Function IsOpenOnDay(ByVal openHours As DayFlags, ByVal day As DayFlags) As Boolean 
    IsOpenOnDay = ((openHours And day) = day) 
End Function 

Answer 2

ve bu stilleri grafik temelde edilir. Tam numaralandırmayı anlamaya çalıştım ama sonra kayıt işleminin, burada yaptığınız gibi stil numaralarını bilmenin daha kolay bir yolu olduğunu anladım.

Soruyu yanıtlamak için makrolarınızda hangi stili uygulamak istediğinizi öğrenmek için makroları kaydedin.

Answer 3

Ayrıca, yalnızca ChartType sağlayabilir ve uygulama varsayılan stili kullanacaktır.

Set oShp = ActiveSheet.Shapes.AddChart2(XlChartType:=xl3DColumnClustered) 
oShp.Chart.SetSourceData Source:=RngDta 

Bu resim eksikliği [özellikler] (http://msdn.microsoft.com vurgulayarak