Dowolny zakres na UserFormie, excel


Dowolny zakres na UserFormie

Rozwinięcie tematu z artykułu wykresnauserformie.htm.

Otóż problem był następujący: czy da się jakimś magicznym sposobem wstawić do UserForma kopię dowolnego zakresu z arkusz?

Odpowiedź jest twierdząca, a zostałą wyszperana na grupie microsoft.public.excel.programming, autor postu rondebruin (at) kabelfoon.nl.

Oto ona:

Sub make_gif_file()
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

    Set ctoTheChartHolder = ActiveSheet.ChartObjects.Add(0, 0, 800, 600)

    Set chtTheChart = ctoTheChartHolder.Chart

    '   Paste the picture onto the chart and
    '   set an object variable for it
    ctoTheChartHolder.Activate
    With chtTheChart
        .ChartArea.Select
        .Paste
        Set picThePicture = .Pictures(1)
    End With

    '   Set the picture's properties...
    With picThePicture
        .Left = 0
        .Top = 0
        sglWidth = .Width + 7
        sglHeight = .Height + 7
    End With

    '   Change the size of the chart object to fit the picture
    'better
    With ctoTheChartHolder
        .Border.LineStyle = xlNone
        .Width = sglWidth
        .Height = sglHeight
    End With

    '   Which filter to use?..
    strFileExtension = "bmp"

    '   Export the chart as a graphics file
    blnRet = chtTheChart.Export(Filename:="c:\range.gif", _
                                Filtername:="gif", Interactive:=False)
    ctoTheChartHolder.Delete
End Sub
 



Wyszukiwarka

Podobne podstrony:
Wykres na UserFormie, excel
Przenoszenie formatu z komórki na komórkę, excel
analityczna zakres na 1 koło
Odkrywanie wierszy i kolumn na skróty, excel
zakres na zalke, Skrypty, UR - materiały ze studiów, IV semestr, inżynieria
zakres na gospodarcze egz
Mała litera automatycznie zamieniana na wielką, excel
Blokada rozmiaru czcionki na wykresie, excel
Zakres na koło z administracyjnego na 14, Administracja-notatki WSPol, postępowanie administracyjne
pytania ze starożytnosci-zakres na prace klasowa, Szkoła, J.Polski
Hydrochujnia-zakres-na-kolosa, AGH WGGIOŚ, uczelniane
ZAKRES NA EGZAMIN Z MECHANIKI TECHNICZNEJ II DLA SEMESTRU III opracowanie
Prawo zakres na kolo najważniejsze artykuły
Prawo zakres na kolo
zakres na egzamin
Filtr na kolumny, excel
Tabela z danymi źródłowymi na wykresie, excel
zakres na sprawdzian polonistyczny
Przenoszenie formatu z komórki na komórkę, excel

więcej podobnych podstron