Làm sao để lấy flash trong Excel (1 người xem)

  • Thread starter Thread starter terran
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

terran

Thành viên mới
Tham gia
31/5/07
Bài viết
6
Được thích
0
Làm sao để lấy 1 file flash được nhúng trong Excel ra đây hả các bạn.
 
Nhúng Flash vào Excel hay PowerPoint

Chào các bạn,

Để nhúng Flash vào Excel thì dễ nhưng lấy file Flash (.swf) ra lại mình vẫn chưa biết cách lấy. Các bạn nghiên cứu xem nhé.

Cách nhúng:
1. Có một tập tin Flash cần nhúng .swf
2. Chọn VIEW|TOOLBARS|Control Toolbox
flash01.jpg


3. CONTROL TOOLBOX|MORE CONTROLS
flash02.jpg


4. Chọn SHOCKWAVE FLASH OBJECT
5. Vẽ một hình chữ nhật theo nhu cầu cần dùng
6. Nhấp phải chuột lên hình vừa vẽ và chọn PROPERTIES.
flash03.jpg


7. Tại ngăn Alphabetic, chọn:
  • EMBED MOVIE - chọn TRUE
  • LOOP - chọn FALSE (nếu TRUE thì sẽ loop).
  • MOVIE - Gõ đường dẫn đến tập tin cần nhúng (Vd: c:\DATA\datbom.swf)
  • Nếu tập tin .swf cùng thư mục với tập tin đang làm việc thì chỉ cần nhập tên tập tin.
flash04.jpg


flash05.jpg


Các bạn nghiên cứu cách trích Flash ra!

TP.
 

File đính kèm

Dùng soft save flash, bạn muốn lấy flash ở đâu cũng được chứ ko riêng gì excel. Vào google search nếu không có thì để địa chỉ mail lại mình send cho.
 
Việc nhúng flash quả là khó, thanks nha, mình cảm thấy việc lấy flash lại dễ dàng lắm cơ. Không biết vì ngày xưa minh hay mày mò hay sao ý. Bạn Down cái flash hunter này về rồi sài thử nha. Trước mình có phần mềm hay lém nhưng quên mất dã để đâu roài. http://flash2x.net/flashhunter/download.html

Đây nè, mình để trong trang web tập làm của mình. Đảm bảo có flash nào là ăn ngay.
Chúc vui vẻ.
http://www.freewebs.com/friendship_vnpt/Flashmovie.zip
 
Chỉnh sửa lần cuối bởi điều hành viên:
Em đã lấy được Flash nhúng vào Exceel bằng cách :
Thực hiện các bước như ttphong2007 hướng dẫn. Sau đó clich vào nút Design mode ( hình Eke trong thanh Control Toolbox ) thì file Flash sẽ được nhúng vào ngay.
 
Mời các bạn xem file đính kèm
 

File đính kèm

Chính xác thì bạn chỉ cần chép code này vào 1 file Excel bất kỳ. (Bằng cách nhấn Alt + F11 -> nhấn phải chuột trên khung Project - VBAProject -> chọn Insert -> Module -> Paste đoạn code bên dưới vào -> Và chọn Run)
PHP: 
Sub ExtractFlash()
Dim tmpFileName As String
Dim FileNumber As Integer
Dim myFileId As Long
Dim MyFileLen As Long
Dim myIndex As Long
Dim swfFileLen As Long
Dim i As Long
Dim swfArr() As Byte
Dim myArr() As Byte
tmpFileName = Application.GetOpenFilename("MS Office File (*.doc;*.xls), *.doc;*.xls", , "Open MS Office file")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
i = 0
Do While i < MyFileLen
If myArr(i) = &H46 Then
If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
ReDim swfArr(swfFileLen - 1)
For myIndex = 0 To swfFileLen - 1
swfArr(myIndex) = myArr(i + myIndex)
Next myIndex
Exit Do
Else
i = i + 3
End If
Else
i = i + 1
End If
Loop
myFileId = FreeFile
tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , swfArr
Close myFileId
MsgBox "Save the extracted SWF Flash as [ " & tmpFileName & " ]"
End Sub
Khi chạy thì nó hỏi bạn nơi để file Excel chứa file Flash -> Bạn chọn xong -> OK là xong.
Thân.
 
Còn trích xuất flash trong UF thì đoạn code nào vậy nhỉ! Po_pikachu (N).
 
Hi, Tôi cũng làm giống như các bước các bạn chỉ, và khi làm xong mở lên thì file chạy bình thường nhưng khi gửi đi theo dạng attach file thì người nhận mở ra nó ko chạy. Vậy tôi còn thiếu gì hay sai sót chỗ nào mà file flash tôi nhúng vào excel nó lại không chạy. Tôi cũng đã thử với cùng một cách với WORD nhưng cũng bị lỗi tương tự như thế, khi mở ở máy của tôi thì chạy bình thường, khi gửi đi thì nó bị lỗi. Cám ơn các bạn. ( tôi đã cố nhưng ko thể chèn file vào trong đây được ).
 
Lần chỉnh sửa cuối:
cocnho đã viết:
Hi, Tôi cũng làm giống như các bước các bạn chỉ, và khi làm xong mở lên thì file chạy bình thường nhưng khi gửi đi theo dạng attach file thì người nhận mở ra nó ko chạy. Vậy tôi còn thiếu gì hay sai sót chỗ nào mà file flash tôi nhúng vào excel nó lại không chạy. Tôi cũng đã thử với cùng một cách với WORD nhưng cũng bị lỗi tương tự như thế, khi mở ở máy của tôi thì chạy bình thường, khi gửi đi thì nó bị lỗi. Cám ơn các bạn. ( tôi đã cố nhưng ko thể chèn file vào trong đây được ).
Nhấp chuột vào đây để mở rộng...
Chắc chắn thiếu chổ EMBED MOVIE - chọn TRUE
Bài #2 đã hướng dẩn đầy đủ rồi
 
Có cách nào cho flash vào userform không hả bác?
 
Lần chỉnh sửa cuối:
ngodany135 đã viết:
Có chứ bạn. Vẫn đơn giản như đưa flash vào trang tính excell vậy, tuy nhiên bạn phải có công cụ hoặc bạn cài đặt bộ office đầy đủ thì Ok bạn nhé. MỜI BẠN XEM FILE
Nhấp chuột vào đây để mở rộng...
công cụ ở đây là gì vậy bạn :D
Bộ office đầy đủ là sao cơ, mình không hiểu, tưởng ra chợ mua đĩa offcie 2003 về cài thế là đủ rồi ^^
 
khongtu19bk đã viết:
công cụ ở đây là gì vậy bạn :D
Bộ office đầy đủ là sao cơ, mình không hiểu, tưởng ra chợ mua đĩa offcie 2003 về cài thế là đủ rồi ^^
Nhấp chuột vào đây để mở rộng...
Nói tóm lại thế này: Nếu bạn có thể chèn flash vào sheet thì trên UserForm cũng tương tự (chổ này được thì chổ kia cũng phải được)
 
Hjc, trong userform của em, toolbox không giống của bác ndu rồi, làm sao đây :(
1.jpg

2.jpg
 
ngodany135 đã viết:
Có chứ bạn. Vẫn đơn giản như đưa flash vào trang tính excell vậy, tuy nhiên bạn phải có công cụ hoặc bạn cài đặt bộ office đầy đủ thì Ok bạn nhé. MỜI BẠN XEM FILE
Nhấp chuột vào đây để mở rộng...

Cảm ơn bác ndu, em cho flash vào đc rồi.

To ngodany: tớ xóa file flash trong thư mục của cậu, user form của bạn vẫn hiển thị flash bình thường. có lẽ flash được đính luôn trên userform?
 
khongtu19bk đã viết:
Cảm ơn bác ndu, em cho flash vào đc rồi.

To ngodany: tớ xóa file flash trong thư mục của cậu, user form của bạn vẫn hiển thị flash bình thường. có lẽ flash được đính luôn trên userform?
Nhấp chuột vào đây để mở rộng...
Bạn xem đoạn video clip ở trên, có thấy tôi chỉnh mục EmbedMovie = TRUE không? Chỉnh như vậy để "đính chết" flash trên UserForm luôn (dù file flash gốc có bị xóa cũng không có vấn đề)
Phân tích các mặt lợi hại:
- Nếu chỉnh mục EmbedMovie = TRUE thì khi gửi file cho người khác, ta không cần phải gửi thêm file flash gốc (nó đã được nhúng trong Excel rồi). Tuy nhiên cũng vì việc này mà làm cho dung lương file tăng lên (vì phải cộng thêm dung lượng file flash)
- Nếu chỉnh mục EmbedMovie = FALSE thì khi gửi file cho người khác, ta buộc phải gửi thêm file flash gốc, nhưng lại có ưu điểm là không làm tăng dung lượng file Excel
 
Cảm ơn các bạn. Mình đã đọc những bài ở dưới rồi và tiến hành các bước cho flash vào excel.
 
Lần chỉnh sửa cuối:
ndu96081631 đã viết:
Chắc chắn thiếu chổ EMBED MOVIE - chọn TRUE
Bài #2 đã hướng dẩn đầy đủ rồi
Nhấp chuột vào đây để mở rộng...
Thầy Ndu ơi nhờ thầy xem giùm em với.
Em có dowload file của anh le van duyet về và thêm đoạn code vào form thì hình flash không chạy được thầy xem giùm em với
 

File đính kèm

quoc nhat đã viết:
Thầy Ndu ơi nhờ thầy xem giùm em với.
Em có dowload file của anh le van duyet về và thêm đoạn code vào form thì hình flash không chạy được thầy xem giùm em với
Nhấp chuột vào đây để mở rộng...

Flash nó im re là phải rồi
Muốn nó 'động đậy' phải dùng cách khác, cụ thể là dùng hàm SetTimer, KillTimer (hàm API)
Cụ thế:
1> Code trong Module:
Mã: 
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public hWnd As Long, lCount As Long
Sub TimerProc(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
  On Error Resume Next
  lCount = lCount + 1
  If lCount = 4 Then Unload UserForm1
End Sub
Sub TimerStart()
  TimerStop
  SetTimer hWnd, 1, 1000, AddressOf TimerProc
End Sub
Sub TimerStop()
  KillTimer hWnd, 1
End Sub
2> Code trong UserForm
Sửa lại như sau:
Mã: 
Private Sub UserForm_Initialize()
  Me.ShockwaveFlash1.Playing = True
  [COLOR=#ff0000]lCount = 0
  hWnd = FindWindow("ThunderDFrame", Me.Caption)[/COLOR]
End Sub
Private Sub UserForm_Activate()
  Application.Visible = False
  [COLOR=#ff0000]TimerStart[/COLOR]
End Sub
Private Sub UserForm_Terminate()
  Me.ShockwaveFlash1.Playing = False
  Application.Visible = True
  [COLOR=#ff0000]TimerStop[/COLOR]
End Sub
Chổ màu đỏ là những chổ thêm vào để "kết nối" với đồng hồ đếm thời gian
 

File đính kèm

ndu96081631 đã viết:
Flash nó im re là phải rồi
Muốn nó 'động đậy' phải dùng cách khác, cụ thể là dùng hàm SetTimer, KillTimer (hàm API)
Cụ thế:
1> Code trong Module:
Mã: 
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public hWnd As Long, lCount As Long
Sub TimerProc(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
  On Error Resume Next
  lCount = lCount + 1
  If lCount = 4 Then Unload UserForm1
End Sub
Sub TimerStart()
  TimerStop
  SetTimer hWnd, 1, 1000, AddressOf TimerProc
End Sub
Sub TimerStop()
  KillTimer hWnd, 1
End Sub
2> Code trong UserForm
Sửa lại như sau:
Mã: 
Private Sub UserForm_Initialize()
  Me.ShockwaveFlash1.Playing = True
  [COLOR=#ff0000]lCount = 0
  hWnd = FindWindow("ThunderDFrame", Me.Caption)[/COLOR]
End Sub
Private Sub UserForm_Activate()
  Application.Visible = False
  [COLOR=#ff0000]TimerStart[/COLOR]
End Sub
Private Sub UserForm_Terminate()
  Me.ShockwaveFlash1.Playing = False
  Application.Visible = True
  [COLOR=#ff0000]TimerStop[/COLOR]
End Sub
Chổ màu đỏ là những chổ thêm vào để "kết nối" với đồng hồ đếm thời gian
Nhấp chuột vào đây để mở rộng...
Cảm ơn thầy. em mò hoài mà không ra.
cảm ơn thầy một lần nữa
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

N
Tạo file lưu trữ dữ liệu tự động trên excel. (6 người xem)
Trả lời
0
Đọc
1
nguyenle01
N
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ) (3 người xem)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
9
Đọc
485
ongke0711
ongke0711
Ả
Cách tạo list Data validation không qua trung gian (4 người xem)
Trả lời
45
Đọc
7K
HOADINH84
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
395
Đọc
47K
phamvanquoc.hanamninh
P
V
  • Question Question
Tạo dữ liệu random cho từng sheet dựa theo dữ liệu có sẵn (2 người xem)
Trả lời
3
Đọc
115
HieuCD
H
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết (4 người xem)
Trả lời
26
Đọc
25K
dungpham01
D
D
in ra bị thiếu chữ (3 người xem)
Trả lời
4
Đọc
82
dankedun
D
Momominh
Hỏi công thức tìm tuần thiếu hàng (1 người xem)
Trả lời
1
Đọc
70
hoangtuaotrang_hp_vn
H
2
EM MUỐN TẠO MA TRẬN BIẾN ĐỔI GIÁ TRỊ PHẦN TỬ NGẪU NHIÊN (2 người xem)
Trả lời
2
Đọc
60
ptm0412
ptm0412
Emyeuexcel
Cộng 4 tuần theo 1 qui luật qui định
Trả lời
34
Đọc
2K
Emyeuexcel
Emyeuexcel
Gà Con yêu VBA
Mở Pass file excel phiên bản .xlsx , xlsm, xlsb
Trả lời
6
Đọc
287
YêuCN
Y
S
Mở 2 cửa sổ riêng biệt (1 người xem)
Trả lời
31
Đọc
24K
ThanhNgan240723
T
vn81206
TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
Trả lời
57
Đọc
20K
vovietdung261016
V
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
7
Đọc
1K
PhanTuHuong
PhanTuHuong
huuthang_bd
Add in SwitchSheet: Quay lại các sheet đã xem trước đó bằng phím tắt (6 người xem)
    • Thích
    • Yêu thích
2
Trả lời
146
Đọc
43K
phong_codon
P
N
  • Question Question
Hỗ trợ tiếng việt trong macro
Trả lời
14
Đọc
606
Quang_Hải
Quang_Hải
N
Cài phần mềm đọc số ra chữ (1 người xem)
Trả lời
2
Đọc
141
Nguyễn Duy Tuân
Nguyễn Duy Tuân
T
Em cần hỗ trợ tách nhiều file và đặt tên theo quy ước chung từ bảng 01 excel có sẳng (1 người xem)
Trả lời
1
Đọc
119
HUONGHCKT
H
N
hàm đếm theo dòng
Trả lời
1
Đọc
100
dungpham01
D
H
LỖI KHOẢNG TRỐNG EXCEL DƯỚI THANH CÔNG CỤ (1 người xem)
Trả lời
1
Đọc
75
ptm0412
ptm0412
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom