画像を切り取って保存するには？ (ID:92260)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まああまり短気にならず、こんなの色々やってみて。(^^ PicWidth = 200 PicHeight = 300 PicStartX = 100 PicStartY = 50 Picture1.Picture = LoadPicture(App.Path + "\" + "test1.jpg") Picture2.Width = PicWidth * Screen.TwipsPerPixelX Picture2.Height = PicHeight * Screen.TwipsPerPixelY Picture2.PaintPicture Picture1.Picture, 0, 0, PicWidth, PicHeight, _ PicStartX, PicStartY, PicWidth, PicHeight DCSavetoJPEG Picture2.hDC, Picture2.ScaleWidth, Picture2.ScaleHeight, _ App.Path + "\" + "test2.jpg", 100, False